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ABSTRACT 

Crucial  to  the  Naval  mission,  but  administrative  in 
nature,  is  the  assignment  of  ship's  company  to  temporary  and 
permanent  duty  assignments.   This  study  implements  a 
personnel  database  system  for  personnel  management  on  a 
small  battle  ship.   dBASE  III  is  used  as  a  "Database 
Management  Software"  and  the  "System"  is  implemented  as  a 
collection  of  algorithms  providing  intelligent  decisions 
about  these  assignments.   It  can  be  supported  by  an  IBM 
PC/XT  (or  an  IBM  PC/XT  compatible)  microcomputer. 

The  system  is  designed  to  provide  real  time  management 
decision  information  on  crew  allocations,  as  well  as 
required  periodic  reports,  based  on  current  crewmember 
information . 
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I  .   INTRODUCTION 

A.   INTRODUCTION  TO  THE  PROBLEM 

In  every  battle  ship  the  personnel  should  be  organized 
such  that  the  ship  could  provide  a  variety  of  functions 
and  operate  under  different  situations,  in  different 
environments . 

This  personnel  organization  follows  standards  that  each 
country  consecrates  and  is  based  on  the  missions  that  each 
individual  ship  should  be  able  to  perform.   This  directly 
determines  the  number  of  men  that  serve  on  this  ship,  and 
the  rank,  the  specialization  and  the  skills  of  each  member 
of  the  crew. 

Although  there  are  organization  tables,  general  rules 
for  assignment,  and  records  of  the  characteristics  (rank, 
specialization,  education,  special  skills,  experience,  etc.) 
of  each  member  of  the  crew,  the  assignment  of  the  duties  to 
each  member  of  the  crew  is  sometimes  a  very  difficult  and 
time  consuming  job.   The  task  is  even  more  complex  due  to 
the  requirement  to  cross  assign  personnel  to  additional  or 
collateral  duties,  which  are  required  under  certain 
conditions.   In  this  case  the  appropriate  personnel  have  to 
be  selected  in  a  real  time  environment  but  under  the 
restriction  that  those  absent  from  traditional  jobs  will  not 
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be  a  detriment  to  the  operation  of  the  department  in  which 
they  belong. 

Personnel  changes  are  an  annual  occurrence,  and  during 
these  annual  reass ignments ,  it  is  quite  often  the  case  that 
the  new  member  of  the  crew  cannot  be  substituted  directly 
for  the  departing  personnel  in  all  additional  duties.   New 
members  may  have  served  in  similar  additional  duties. 

If  there  is  not  enough  time  for  the  new  member  to  be 
trained,  these  additional  duties  have  to  be  reassigned  among 
the  other  members  of  the  crew  until  the  training  of  the  new 
members  can  be  completed. 

Both  the  initial  construction  and  the  reconstruction  of 
these  assignment  tables  are  based  on  the  existing  records  of 
the  personnel.   The  assignment  process  is  a  constant 
reexamination  of  these  records.   Existing  lists  and  tables 
must  be  compared  with  the  new  assembled  information.   The 
reevaluation  of  the  current  assignment  lists  can  take  a 
considerable  amount  of  time. 

The  problem  is  critical  both  in  large  and  small  ships. 
In  the  first  case,  there  are  a  large  number  of  personnel 
assigned  and  an  enormous  amount  of  records  must  be  examined. 
In  the  second  case,  that  is  in  the  case  of  small  ships,  the 
limited  number  of  people  that  serve  on  the  ship  makes  the 
assignment  of  the  additional  duties  much  more  difficult 
simply  because  of  a  large  number  of  jobs,  and  limited  people 
to  fill  them. 
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Finally,  in  the  Hellenic  Navy  only  officers  and  the  non- 
commissioned officers  serve  on  a  permanent  basis,  while  the 
lower  level  personnel  (seamen)  serve  for  a  standard  (usually 
short)  period  of  time.   Therefore,  from  time  to  time 
projection  tables  reflecting  future  needs  in  lower  level 
personnel  must  be  assembled  and  sent  to  Navy  training 
centers  for  new  personnel  availability  planning  in  replacing 
those  finishing  their  service  obligations. 

The  purpose  of  this  application  is  to  substitute  the 
traditional,  manual  way  in  which  personnel  records  are  used 
in  a  small  battle  ship  for  supporting  personnel  management, 
by  the  use  of  a  microcomputer  database  system  that  can  not 
only  provide  the  appropriate  information  for  personnel 
management  decisions,  but  also  provide  some  solutions  to  the 
assignment  problem  in  real  time. 

Of  course,  personnel  management  must  not  be  based  solely 
on  automated  methods,  or  computer  generated  solutions.   In 
this  instance  the  human  factor  plays  a  very  important  role 
in  this  kind  of  data  interpretation. 

However,  it  is  much  better  to  have  a  quick  basis  from 
which  to  start  the  decision  process  than  to  start  from  the 
beginning  with  the  full  review  process. 

A  small  ship  has  been  selected  as  a  model;  it  can  easily 
be  extended  to  the  personnel  assignment  problem  in  a  larger 
one.   The  construction  of  the  sample  database  for  represen- 
tation purposes  is  much  easier,  and  no  significant  details 
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are  likely  to  be  omitted  since  the  nature  of  the  problem  is 
the  same  in  both  large  and  small  ships. 

A  model  of  personnel  organization  according  to  Hellenic 
Navy  standards  will  be  used,  but  some  details  will  be 
omitted,  however,  due  to  the  unclassified  nature  of  the 
research  project.   Also  some  organization  modifications  have 
been  used  in  order  to  generalize  the  standards  used  by  most 
other  countries. 

B.   INTRODUCTION  TO  DATABASE  CONCEPTS 

During  the  last  fifteen  years  the  use  of  database 
systems  is  dramatically  increasing  year  by  year.   This  is 
because  a  database  system  compared  with  a  conventional 
digital  computer  has  a  number  of  advantages. 

Database  processing  enables  more  information  to  be 
produced  from  a  given  amount  of  data.    When  data  is 
physically  partitioned,  as  it  is  in  file  processing  systems 
(Figure  1) ,  information  can  only  be  derived  from  each  part 
individually,  and  not  derived  from  a  combination  of  these 
parts.   The  use  of  a  database  eliminates  this  disadvantage 
allowing  the  production  of  information  as  a  combination  of 
different  storage  parts  (Figure  2). 

The  use  of  database  processing  has  also  the  advantage  of 
avoiding  data  duplication,  or  at  least  reduction  of  data 
duplication.   This  results  in  the  savings  of  storage  space 
and  reduced  processing  requirements. 
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Figure  1.  The  traditional  File  Processing  System 
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Figure   2.  Database  Processing  System 
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In  a  file  processing  system  each  program  used  must 
contain  a  description  of  the  format  of  the  files  it  uses. 
Thus,  the  structure  of  files  will  be  distributed  across 
application  programs.   When  the  structure  of  a  file  is 
changed,  the  appropriate  changes  must  be  integrated  into 
other  programs  that  use  this  file.   In  a  database 
application  the  application  programs  are  not  concerned  with 
the  structure  used  for  data  storage.   This  function  is 
assigned  to  the  "Database  Mangement  System"  and  thereby 
achieving  a  program/  data  independence  [Ref.  1] . 

Finally,  the  use  of  database  processing  has  the  advan- 
tage of  better  data  management.   Maintenance  or  updating  of 
data  can  be  much  easier  in  a  centralized  database  system  and 
without  (or  at  least  with  a  minimum  amount  of)  data 
duplication  [Ref.  1]. 

C.   DEFINITIONS  AND  TERMINOLOGY 

Before  presenting  a  general  overview  of  such  a  database 
system,  some  basic  definitions  and  terminology  should  be 
provided . 

a)  A  "Database"  is  a  shared  collection  of  interrelated 
data  designed  to  meet  the  varied  information  needs  of 
an  organization. 

b)  A  "Database  Management  System"  (DBMS)  is  a  software 
system  that  performs  all  user's  requests  (update, 
insert,  delete,  retrieve)  for  data. 

c)  A  "Database  System"  is  a  system  to  record  and  maintain 
information  that  is  significant  to  an  organization  in 
the  decision  making  process. 
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d)  A  "File"  is  an  organized  collection  of  records 
representing  entities  of  the  same  type. 

e)  A  "Record"  is  a  collection  of  data  concerning  one 
entity  of  a  file.   Each  record  has  an  identical 
format . 

f)  A  "Field"  is  a  subdivision  of  a  record  and  it  contains 
a  unit  of  information.   It  is  the  smallest  unit  of 
named  data. 

g)  A  "Key"  is  an  attribute,  or  a  set  of  attributes,  whose 
value  uniquely  identifies  each  entity  in  a  file. 

h)   A  "Data  Definition  Language"  (DDL)  is  a  specialized 
language  used  for  the  description  of  the  database. 

i)   A  "Data  Manipulation  Language"  (DML)  is  the 

programming  language  used  to  formulate  queries  or  to 
write  application  programs  for  data  manipulation. 

j)-  A  "Relationship"  between  files  is  an  ordered  list  of 
these  files.   The  relationship  can  be  subdivided  into 
the  following  three  categories: 

(1)  "One-to-one"  relationship,  when  for  each  entity  of 
a  set  of  entities  there  is  only  one  associated 
entity  in  another  set  of  entities  and  visa  versa. 

(2)  "One-to-many"  relationship,  when  for  each  entity 
of  a  set  of  entities  there  are  many  associated 
entities  in  another  set  of  entities. 

(3)  "Many-to-many"  relationship,  when  each  entity  of  a 
set  of  entities  can  be  related  with  any  number  of 
entities  in  another  set  of  entities  and  visa 
versa . 


D.   THE  ARCHITECTURE  OF  A  DATABASE  SYSTEM 

It  is  apparent  from  Figure  2,  that  the  most  important 
element  in  the  system  is  the  Database  Management  System 
(DBMS).   This  system  controls  the  sequence  of  actions  that 
are  taken  to  store  or  retrieve  data  from  the  database.   The 
basic  components  of  such  a  system  are  shown  in  Figure  3 
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Figure   3  Schematic  diagram  of  a  database  system 
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(enclosed  in  dotted  lines).   In  this  figure  [Ref.  2]  a 
schematic  diagram  of  a  typical  database  system  is  repre- 
sented.  The  non-shadowed  rectangles  represent  software 
routines . 

Queries  coming  either  from  application  programs  or 
directly  from  a  user  are  routed  to  the  query  processor.   The 
query  processor  needs  to  know  the  structure  of  the  database 
in  order  for  the  query  to  be  interpreted  in  the  context  of  a 
particular  database  system.   Information  about  the  database 
can  be  built  into  the  query  processor  itself  or  it  can  be 
stored  separately  (as  in  Figure  3)  in  database  description 
tables.   [Ref.  2] 

The  processed  query  is  passed  to  a  collection  of 
routines  called  the  "Database  Manager".   The  database 
manager  must  be  able  to  perform  the  following  tasks: 

a)  To  translate  the  query  into  terms  that  the  "File 
Manager"  can  understand,  i.e.,  into  operations  on 
files  rather  than  on  the  more  abstract  data  structures 
of  the  database  description. 

b)  To  provide  the  appropriate  security,  so  that  only 
authorized  personnel  are  able  to  access  the  data 
stored  in  the  database. 

c)  To  validate  the  insertion  or  deletion  requirements  of 
a  user  query. 

d)  To  provide  synchronization  when  multiple  users  attempt 
to  access  the  database  at  the  same  time. 

The  "File  Manager"  could  be  the  general  purpose  file 

system  provided  by  the  underlying  operating  system,  but  in 

general  it  is  a  specialized  file  system  able  to  handle  the 
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complex  file  structures  used  to  store  the  database 
information.   Such  complex  structures  are  used  to  facilitate 
the  rapid  access  and  manipulation  of  data  in  the  database 
[Ref.  2]  . 

In  a  database  system  a  variety  of  forms,  or  views,  of 
data  are  defined.   These  views  can  be  seen  as  different 
levels  of  abstraction  that  are  used  for  the  description  of 
this  database  system.   From  these  views  the  most  commonly 
used  are  those  represented  in  Figure  4  [Ref.  2],  i.e.,  the 
"External"  view,  the  "Conceptual"  view,  and  the  "Internal" 
view. 

The  "Conceptual"  view,  also  called  "schema"  is  the 

complete  and  logical  view  of  data.   In  other  words, 

regardless  of  how  data  is  actually  stored  in  its  physical 

storage  device,  it  is  represented  in  such  a  way  that  can  be 

understandable  by  a  human. 

External  view     Conceptual  view     Internal  view 


User 
group  1 

User 
group2 

User 


group  3  I  View  3 


User 

group  n  I  View  n 


Conceptual 
database 


DATABASE 


Figure  4.   Levels  of  Abstraction  in  a  Database  System 
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But  in  general  it  is  not  desirable  that  every  applica- 
tion program  be  able  to  access  all  the  data  in  the  database. 
So,  another  view  is  defined  called  "subschema"  or  "External" 
view  and  it  defines  a  subset  of  the  schema  to  be  seen  by  a 
given  application  program  or  a  user.   There  may  be  more  than 
one  external  view,  and  they  can  overlap  each  other. 

Finally,  the  third  view  of  the  data,  called  "Interval" 
view  of  "Physical"  view  is  used  to  describe  the  form  of  the 
data  as  it  appears  to  a  particular  processing  computer, 
i.e.,  how  data  is  physically  arranged,  and  how  it  is 
allocated  to  files. 

The  following  example  makes  the  above  distinction 
between  views  more  understandable  [Ref.  1]. 

For  a  database  system  used  by  a  bank,  the  "database 
schema",  or  the  "conceptual"  view,  might  include  the  records 
for  customers,  the  records  for  the  checking  accounts,  the 
records  for  the  savings  accounts,  the  records  for  the  loans, 
and  the  credit  records. 

Different  "external"  views,  or  "subschemas",  can  be 
defined.   One  may  contain  the  customer  records  and  the 
records  for  checking  accounts.   This  would  be  the  "checking 
subschema".   Another  may  contain  customer,  loan  and  credit 
records  and  thereby  be  the  "loan  subschema"  and  so  on. 

Finally,  the  "internal"  view  has  nothing  to  do  with  the 
customers,  loans,  credits,  etc.,  but  it  describes  what  data 
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is  used,  how  it  is  physically  arranged  and  how  it  is 
allocated  in  files. 

E.   DATA  MODELS 

The  real  world  associations  of  objects  and  events  have 
to  be  represented  as  a  "model",  in  order  for  this  represen- 
tation to  be  understandable.   The  same  thing  is  required  for 
the  data  representation.   The  model  used  for  the  data 
representation  is  called  the  "data  model"  and  it  is  an 
abstract  representation  of  the  data  about  entities,  events, 
activities,  and  their  associations. 

In  the  commercial  database  systems  three  kinds  of  data 
models  are,  in  general,  used.   These  data  models  are  the 
"Hierarchical  data  model",  the  "Network  data  model",  and  the 
"Relational  data  model".   Each  one  has  its  own  features, 
advantages,  and  limitations. 

1 .   The  Hierarchical  Data  Model 

In  a  hierarchical  data  model  the  data  is  represented 
as  a  set  of  nested  one-to-many  and  one-to-one  relationships. 

The  tree  structure  is  used,  and  an  organization  is 
viewed  as  a  hierarchy  of  positions.   Multiple  tree 
structures  can  be  used  in  the  same  database  and  each  tree 
consists  of  a  hierarchy  of  records.   Figure  5  gives  an 
example  of  a  representation  of  data  organized  in  a  tree 
structure . 

The  advantage  of  this  data  model  is  its  data  struc- 
ture.  The  tree  structure  is  well  known  and  widely  used  in 
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Figure  5.  A  Hierarchical  data  mode 
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Figure  6.  A  Network  data  mode 
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many  other  applications  in  addition  to  databases.   The 
disadvantage  is  that  this  model  cannot  support  the  many-to- 
one  relationship  and,  as  a  result,  redundancy  of  data 
occurs . 

2.   The  Network  Data  Model 

The  data  in  a  network  data  model  is  represented  by  a 
set  of  record  types  and  pairwise  relationships 'between  these 
record  types. 

The  network  data  model  supports  the  use  of  multiple 
one-to-many  and  many-to-one  relationships  between  the  same 
pair  of  record  types,  but  relations  that  involve  more  than 
two  record  types  are  not  directly  permitted.   In  other 
words,  the  many-to-many  relationship  is  not  supported  by  the 
network  models. 

The  basic  data  structure  in  a  network  database  is 
the  graph  and  Figure  6  provides  an  example  of  such  a 
structure . 

The  network  data  model  can  be  viewed  as  an  extension 
of  the  hierarchical  data  model,  or  the  hierarchical  data 
model  can  be  considered  as  a  special  case  of  a  network  data 
model,  because  both  models  use  as  a  basic  data  structure  the 
graph  (a  tree  structure  is  always  considered  a  special  case 
of  a  graph).   Neither  can  support  the  many-to-many  relation- 
ship and  only  the  network  data  model  can  support  the  many- 
to-one  relationship.   This  is  in  fact  the  basic  difference 
between  a  tree  structure  and  a  graph. 


23 


3.   The  Relational  Data  Model 

The  relational  data  model  differs  from  the 
hierarchical  and  network  data  model.   The  mathematical 
concept  which  the  relational  data  model  is  based  on  is  the 
set  theoretic  relation.   Some  definitions  [Ref.  2]  of  this 
theory  should  be  given  at  this  point  for  better  represen- 
tation of  this  model. 

a)   Domain  is  simply  a  set  of  values,  and  it  is  written  as 
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b)   The  Cartesian  product  of  domains  D,  ,  D~  ,  D,,  ...,  D 
which  is  written  as  D..  XD_XD  _ .  .  .XD   is  the  set  of  all 
n-tuples  (u-,,  u~,  u-,,  ...,  u  )  such  that  u,  is  in  D,, 
u-j  is  in  Dp,  and  so  on. 


c)  A    relation  is  a  subset  of  the  Cartesian  product  of  a 
list  of  domains. 

d)  Tuples  are  the  members  of  a  relation. 

Relations  are  represented  as  two-dimensional  tables. 
Each  row  in  such  a  table  is  a  tuple,  and  each  column  corre- 
sponds to  one  component.   Columns  are  given  names  called 
"attributes"  and  each  column  contains  values  about  the  same 
attribute.   When  attribute  names  are  attached  to  columns  of 
a  relation  then  the  order  of  the  columns  becomes  unimpor- 
tant.  The  set  of  attribute  names  for  a  relation  is  called 
the  "relation  scheme".   Figure  7  shows  a  representation  of  a 
relation . 

A  relational  data  model  represents  data  as  a 
collection  of  relation  schemes.   Tables  that  are  used  to 
represent  the  relations  must  have  the  following  properties: 
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a)  Each  column  of  such  a  table  must  contain  values  about 
the  same  attribute. 

b)  Each  column  must  have  a  distinct  name. 

c)  Each  row  is  distinct. 

d)  The  sequence  of  the  rows  is  immaterial. 

Attributes 
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Figure  7.   A  Representation  of  a  Relation 

The  advantage  from  the  use  of  the  tables  as  a  repre- 
sentation method  is  that  the  tables  are  more  understandable 
than  the  graphs  or  the  trees.   In  addition  to  its  mathemati- 
cal basis,  a. relation  data  model  differs  from  a  hierarchical 
or  a  network  data  model  in  the  following  points: 

a)  All  the  types  of  relationships  (one-to-one,  one-to- 
many,  and  many-to-many)  are  supported  by  this  model. 

b)  The  query  languages  that  are  used  in  this  data  model 
allow  the  manipulation  of  data  as  groups  and  not 
procedurally  as  one  record  at  a  time. 

c)  Finally,  the  relational  data  model  provides  more  data 
flexibility  since  relationships  need  not  be  predefined 
during  the  design  phase. 
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II .   ANALYSIS 

According  to  the  traditional  approach  for  a  software 
development,  systems  development  can  generally  be  thought  as 
having  two  major  components:   systems  analysis  and  system 
design . 

System  analysis  is  the  process  of  gathering  and 
interpreting  facts,  and  using  the  facts  to  improve  the 
existing  system  through  better  procedures  and  methods. 
System  design  is  the  process  of  planning  a  new  system  to 
replace  or  complement  the  old  one  [Ref.  3].   In  other  words, 
analysis  specifies  what  the  system  should  do,  and  design 
states  how  to  accomplish  the  objectives. 

The  first  step  of  the  analysis  phase  is  the  system  study 
which  includes  the  accumulation  of  all  existing  information 
that  leads. to  the  need  of  a  new  system  development  as  well 
as  the  collection  of  all  problems  related  to  the  system  in 
use. 

The  description  of  the  existing  situation  and  of  the 
problems  related  to  this  situation  is  very  important  for  two 
tasks  of  the  analysis  phase. 

First,  if  the  existing  problems  are  well  described,  the 
requirements  for  the  new  system  can  be  stated  clearly, 
unambiguously  and  exhaustively. 
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Second,  it  is  much  easier  for  the  person  who  has  the 
authority  to  acept  or  not  the  starting  of  a  project,  to 
determine  if  the  elimination  of  the  existing  problems  and 
the  proposed  improvements  satisfy  one  or  more  of  the  reasons 
for  a  project  initiation. 

Accordig  to  J.  A.  Senn  [Ref.  3]  the  reasons  for  a 
project  initiation  are  the  following: 

a.  Greater  processing  speed 

b.  Better  accuracy  and  improved  consistency 

c.  Faster  information  retrieval 

d.  Reduced  cost 

e.  Better  security 

In  general,  all  of  the  above  reasons  should  be  satisfied 
by  the  use  of  a  new  system,  but  it  is  in  each  organization's 
responsibility  to  decide  how  many  of  the  above  reasons 
should  be  satisfied  in  order  to  make  the  determination  if  a 
new  system  is  reasonable  to  be  developed. 

In  the  following  parts  of  this  chapter,  the  existing 
system  will  be  described,  an  examination  will  be  done  of  how 
many  reasons  for  a  project  initiation  are  satisfied,  and  the 
requirements  of  the  system  under  development  will  be  stated. 

A.   DESCRIPTION  OF  CURRENT  SYSTEM 

As  previously  mentioned,  standards  exist  for  personnel 
organization  in  a  battle  ship  so  as  to  afford  the  ship  the 
ability  to  operate  under  a  variety  of  conditions. 
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According  to  the  Hellenic  Navy  standards,  which  do  not 
differ  much  from  the  standards  used  by  other  countries,  the 
personnel  in  a  battle  ship  are  divided  into  two  major 
categories.   The  first  category  includes  personnel  belonging 
to  the  "Deck"  department  and  the  second  category  includes 
the  personnel  belonging  to  the  "Machine"  department. 

Each  department  must  provide  a  number  of  functions  to 
the  operation  of  the  ship.   These  functions  usually  form  a 
hierarchy  of  subdepartments  within  the  main  department. 

The  "Deck"  department  serves  all  the  needs  of  a  battle 
ship  from  a  war  machine  point  of  view  and  it  includes  all 
subdepartments  partitioning  this  task,  i.e.,  the 
"Communication"  subdepartment ,  the  "Weapons"  subdepartment , 
the  "Combat  Information"  subdepartment,  etc. 

The  "Machine"  department  serves  all  the  needs  of  a 
battle  ship  from  the  movement  and  repair  point  of  view  and 
it  includes  all  the  subdepartments  whose  functitons  are 
related  to  these  purposes,  i.e.,  the  subdepartment  "Damage 
Control",  the  subdepartment  "Electric  Installation",  the 
subdepartment  "Main  Engines",  etc. 

In  larger  ships,  other  departments  exist.   Among  them 
are  the  "Supply"  department  and  the  "Sanitary"  department. 
The  functions  of  these  departments  are  not  at  all  ignorable. 
Small  ships  must  have  the  appropriate  personnel  to  provide 
the  functions  of  these  departments,  but  in  an  environment 
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whose  personnel  is  limited,  these  departments  do  not  exist 
as  individual  departments.   The  personnel  responsible  for 
supporting  the  real  functions  of  these  departments  are,  in 
general,  attached  to  the  "Administration"  subdepar tment  of 
the  "Deck"  department. 

Table  I  shows  the  subdepartments  that  each  of  the  main 
departments  include.   Since  the  model  of  a  small  ship  will 
be  used  in  this  study  only  the  "Deck"  department  and  the 
"Machine"  departments  are  represented. 

Also  in  Table  I,  the  "Administration"  subdepartment  is 
considered  to  belong  to  the  "Deck"  department.   This  is  not 
exactly  the  case  since  the  "Administration"  subdepartment 
must  have  access  to  all  personnel  in  a  battle  ship.   The 
reason  for  this  representation  is  that  the  supervising 

TABLE  I. 
CLASSIFICATION  OF  DEPARTMENTS  AND  SUBDEPARTMENTS 


DEPARTMENTS 

DECK 

MACHINE 

(f) 

LU 
H 
h~ 
1* 
< 
Q. 

LU 

Q 

CD 
Z> 
CO 

ADMINISTRATION 

DAMAGE  CONTROL 

WEAPON 

ELECTRIC  INSTALLATION 

COMBAT  INFORMATION 

ELECTRONIC  EQUIPMENTS 

COMMUNICATION 

MAIN  ENGINES 

NAVIGATION 

SPARE  PARTS 
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officer  of  this  subdepartment  is  the  Executive  Officer  of 
the  battle  ship  who  belongs  to  "Deck"  officers. 

Each  subdepartment  provides  a  number  of  functions.   For 
this  reason  several  jobs  have  been  identified  and  assigned 
to  personnel  belonging  to  this  subdepartment.   Because  each 
person  has  to  provide  not  only  a  specific  job,  but  a  group 
of  related  jobs,  "job  position"  descriptions  are  used  as  a 
subclassi f icat ion  of  the  subdepar tments .   Each  job  position 
in  general,  includes  more  than  one  job,  but  it  is  assigned 
to  a  single  person. 

From  another  point  of  view,  personnel  are  divided  into 
three  categories  based  on  their  rank:   officers,  non- 
commisioned  officers  or  petty  officers,  and  the  lower  level 
personnel  which  will  be  referred  to  as  seamen. 

The  personnel  of  each  category  are  divided  into  a  number 
of  subcategories  according  to  specialization  of  each  person. 

Table  II  shows  the  three  categories  of  the  personnel 
according  to  those  ranks,  as  well  as  the  specializations 
that  each  category  includes. 

The  specialization  assigned  is  based  on  the  education 
and  training  levels  of  each  person.   These  specializations 
remain  with  an  individual  throughout  his  entire  military 
career  . 

These  two  classifications,  that  is  the  classification  of 
the  job  stations  of  a  battle  ship  in  departments  and 
subdepartments ,  and  the  classification  of  the  personnel 
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TABLE  II. 
PERSONNEL  CLASSIFICATION  ACCORDING  TO  SPECIALIZATIONS 


OFFICERS 

N.C.  OFFICERS 

SEAMEN 

o 

h- 
< 

_J 
< 

U 

UJ 

Q_ 

DECK  OFFICER 

WEAPON  USER 

WEAPON  USER 

WEAPON  CONTROL 

WEAPON  CONTROL 

COMMUNICATION 

COMMUNICATION 

NAVIGATION 

NAVIGATION 

RADAR  USER 

RADAR  USER 

SANITARY 

SANITARY 

SUPPLY 

SUPPLY 

ENGINEER 

ELECTRICIAN 

ELECTRICIAN 

ELECTRONIC 

ELECRONIC 

ENGINEER 

ENGINEER 

according  to  individual  specializations  are  related  to  the 
duty  assignment  problem. 

Table  III  shows  the  relationship  between  the  subdepart- 
ments  belonging  to  the  "Deck"  department,  and  personnel 
special izations. 

The  "Administration"  subdepartment  does  not  require 
any  specialization  of  its  personnel.   In  general,  the 
appropriate  personnel  are  distributed  across  other 
subdepar tments . 

In  entries  for  both  non-commissioned  officers  and  for 
seamen  the  word  "ANY"  is  written  to  indicate  that  there  is 
no  need  for  a  specific  specialization  in  this  position. 
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TABLE  III. 

RELATIONSHIP  BETWEEN  "DECK"  DEPARTMENT 
AND  PERSONNEL  SPECIALIZATION 


SUBDEPART  M E  N  T  S 

ADMINISTR. 

ARMAMENT 

COMBAT  INFO. 

COMMUNICAT 

NAVIGATION 

UJ 

(X 

UJ 

u_ 

o 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

DECK  OFFIC. 

LU 

—r 

o 
< 

r-j 

< 

(j 

LU 
Q. 
LO 

1      ■ 

< 
Ul 

\  / 

-X. 

U 
LU 
O 

ti- 
ll. 

O 

u 

ANY 

WEAP.USER 

WEAP.CONTR. 

COMMUNICAT 

NAVIGATION 

SANITARY 

RADAR  USER 

SUPPLY 

UJ 

z 

UJ 
CO 

ANY 

V^EAP.USER 

WEAP.CONTR. 

COMMUNICAT 

NAVIGATION 

SANITARY 

SUPPLY 

Usually  persons  with  high  levels  of  education,  as  for 
example  persons  of  "Sanitary"  or  "Supply"  specialization, 
are  attached  to  this  subdepartment  because  the  physical 
subdepar tments  do  not  exist. 

The  same  situation  exists  in  the  "Machine"  department, 
and  the  relationship  between  the  subdepar tments  of  this 
department  and  the  personnel  specializations  is  indicated  in 
Table  IV. 

The  exception  here  is  the  "Spare  Parts"  subdepartment, 
but  again  it  is  assembled  by  appropriate  personnel 
distributed  over  other  subdepartments  of  this  department. 
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TABLE  IV. 

RELATIONSHIP  BETWEEN  "MACHINE"  DEPARTMENT 
AND  PERSONNEL  SPECIALIZATION 


SUBDEPARTMENTS 

DAMAGE  CTRL 

ELECT  R.INST 

ELECT  R.  EQUIP 

MAIN  ENGINES 

SPARE  PARTS 

LU 

£ 
< 

LU 

Q 
UJ 

E 
u 
< 

UJ 

o 

u_ 

u_ 
O 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

en 
o 

f- 

< 

_j 
<£ 

U 

LU 
Q_ 

tn 

U_ 

O 
(J 

2 

ENGINEER 

ELECTRICIAN 

ELECTRONIC 

ENGINEER 

ANY 

UJ 

z 

<r 

LU 

CO 

ENGINEER 

ELECTRICIAN 

ELECTRONIC 

ENGINEER 

ANY 

ELECTRICIAN 

ANY 

Up  to  this  point  the  procedure  of  assigning  the 
appropriate  personnel  to  the  appropriate  departments  and 
subdepar tments  is  straightforward  and  not  difficult,  except 
in  the  case  of  assembling  the  "Administration"  and  the 
"Spare  Parts"  subdepartments .   Even  then  the  selection  of 
the  appropriate  persons  can  be  easily  accomplished. 

Therefore,  each  person  of  the  crew  is  assigned  to  a 
specific  department  and  subdepartment ,  and  the  officer  who 
manages  the  subdepartment,  is  responsible  for  the  assignment 
of  specific  jobs  to  each  member  of  his  subdepartment.   He 
is  also  charged  with  providing  for  the  training  of  the 
personnel  for  which  he  is  responsible,  and  the  cooperation 
of  his  subdepartment  with  the  other  subdepartments. 
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The  Executive  Officer  of  the  ship  is  the  supervisor  of 
all  the  subdepartments  belonging  to  the  "Deck"  department, 
and  the  Chief  Engineer  of  the  ship  supervises  the  subdepart- 
ments which  belong  to  the  "Machine"  department. 

There  are  differences  between  the  operation  of  a  battle 
ship  and  the  operation  of  a  commercial  organization,  where 
personnel  arrive  each  morning,  work  for  a  specific  period  of 
time  and  leave  until  the  next  working  day.   A  battle  ship  is 
an  organization  which  must  operate  on  an  "around  the  clock" 
basis.   Personnel  are  usually  divided  into  shifts  to  cover 
the  entire  day. 

Shift  structures  are  not  the  same  in  all  cases.   For 
example,  three  8-hour  shifts,  with  equal  number  of  persons 
in  each  one,  usually  suffice  for  the  daily  and  routine  work 
in  port  and  during  periods  at  sea  with  no  threats,  levels  of 
alert  or  exercises.   During  periods  of  increased  activity, 
as  for  example  during  exercises,  two  shifts,  again  with 
equal  number  of  persons  in  each  one,  are  required  for  ship 
operation.   At  times  all  personnel  are  called  to  duty  when 
any  kind  of  threat  or  level  of  alert  exists.   To  plan  for 
all  three  cases,  job  assignment  is  complicated  by  cross 
assignment  of  personnel.   It  must  by  necessity  be  done  in 
advance . 

In  addition  to  the  above,  there  are  times  when  specific 
conditions  occur  which • require  that  special  purpose  groups 
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must  be  assembled  to  facilitate  temporary  functional 
requirements.   This  further  complicates  job  assignment  since 
the  absence  of  these  personnel  from  their  normal  positions 
must  not  interrupt,  even  temporarily,  the  operation  of  the 
department,  or  subdepartment . 

Related  to  the  task  of  job  assignment,  is  the  completion 
of  regular  monthly,  semiannual,  annual,  and  "upon  request" 
personnel  reports.   Some  of  them  are  simple  and  only  require 
information  stored  in  a  single  file.   But  some  are  compli- 
cated and  require  a  time  consuming  examination  of  a  variety 
of  documents  in  order  to  extract  the  required  information 
for  the  report.   Some  of  these  reports  are  critical  for  the 
current  and  future  operation  of  the  battle  ship  and  must  be 
complete  and  accurate.   For  example,  the  tables  reflecting 
the  future  needs  in  lower  level  personnel  must  be  maintained 
and  available  upon  request. 

B.   PROPOSED  IMPROVEMENTS  OVER  CURRENT  SYSTEM 

All  the  previously  described  tasks  are  currently 
provided  manually.   Therefore,  the  following  improvements 
can  be  achieved  by  computer  automation: 

a)  The  processing  speed  will  be  much  higher. 

b)  Improved  accuracy  in  data  retrieval  can  be  achieved  if 
the  criteria  for  the  job  assignments  is  carefully 
described  and  taken  into  account  in  the  application 
programs.   Also  in  the  case  of  reports  and  listings 
the  possibility  of  information  omission  is  eliminated. 

c)  The  retrieval  and  listing  of  information  will  be  much 
faster,  easier  and  real  time. 
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d)  In  a  military  environment,  the  cost  of  the  manually 
provided  functions  cannot  be  easily  estimated. 
Therefore,  cost  reduction  as  a  requirement  cannot  be 
considered  in  the  improvements  of  the  existing  system, 
except  in  terms  of  time.   On  the  other  hand,  the 
monetary  cost  of  installing  a  computer  system  is 
considered  not  significant  since  the  proposed  system 
will  be  designed  so  as  to  be  supported  by  a 
microcomputer . 

e)  The  level  of  security  afforded  the  personnel  informa- 
tion can  be  improved  according  to  organizational 
requirements  (in  this  case  according  to  the  security 
rules  on  a  battle  ship) . 

The  previously  mentioned  possible  improvements  lead  to 

the  decision  that  this  project  is  reasonable  to  start.   It 

satisfies  the  requirements  for  project  initiation  as  stated 

in  the  beginning  of  this  chapter. 

C.   SYSTEM  REQUIREMENTS 

The  system  must  be  able  to  satisfy  the  following 
requirements  so  that  the  previously  defined  improvements  can 
be  achieved : 

a)  It  must  be  able  to  store  any  information  about 
personnel  on  a  battle  ship  that  is  currently  stored  on 
papers.   Actual  storage  may  be  different  from  the 
traditional  organization  in  a  files  point  of  view,  but 
some  modifications  in  storage  are  necessary  to  avoid 
data  duplication. 

b)  It  must  be  able  to  provide  any  stored  information  or 
any  combination  of  stored  information  upon  request. 

c)  It  must  include  sufficiently  defined  criteria  so  as  to 
provide  solutions  for  the  job  assignments  as  accurate- 
ly, effectively,  and  equitably  as  possible. 

d)  It  must  be  easy  to  use,  or  useable  by  personnel 
without  special  computer  knowledge  or  skills. 

e)  It  must  be  supportable  on  a  microcomputer  system. 
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D.   SPECIFICATIONS  OF  THE  BATTLE  SHIP  THAT  WILL  BE  USED  AS 
A  MODEL 

1 .  Personnel 

Sixty-three  men  will  be  considered  as  ship's  company 
on  a  battle  ship.   These  men  are  divided  into  the  following 
categories  by  rank: 

a)  The  Commanding  Officer 

b)  Six  more  Officers.  Four  of  them  are  Deck  Officers  and 
two  Engineers.  Each  one  must  be  able  to  manage  one  or 
more  subdepartments  within  his  specialization. 

c)  Twenty-one  Petty  Officers.   Four  of  them  are  Master 
Chief  Petty  Officers,  three  Senior  Chief  Petty 
Officers,  three  Chief  Petty  Officers,  three  Petty 
Officers  1st  Class,  three  Petty  Officers  2nd  Class, 

-  and  five  Petty  Officers  3rd  Class.   All  Petty  Officers 
are  assigned  to  subdepartments  according  to  his 
individual  specializations. 

d).   Thirty-five  Seamen.   These  men  are  assigned  to 

subdepartments  according  to  their  specialization. 

2 .  Ship  Characteristics 

From  the  armament  point  of  view,  the  battle  ship 
that  will  be  used  as  a  model  for  this  application  is 
equipped  with  the  following  weapons  as  shown  in  Figure  8. 

a)  Three  3"  Automatic  Guns.   These  guns  are  controlled  by 
the  central  armament  control  console  or  locally  by 
individual  control  consoles.   They  are  referred  to  as 
GUN  31,  GUN  32,  and  GUN  33. 

b)  Two  40mm  Automatic  Anti-Air  Guns.   These  are  also 
controlled  by  the  central  armament  control  console  or 
locally  by  a  user,  and  will  be  referred  to  as  GUN  41 
and  GUN  42. 

c)  Two  Groups  of  Surface  to  Air  Missiles.   These  will  be 
referred  to  as  A/A  MISSILES  1  and  A/A  MISSILES  2,  and 
are  controlled  by  their  own  firing  and  control 
console . 
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Figure  8.  Model  ship's  weapons  arrangement. 
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d)  Two  Groups  of  Surface  to  Surface  Missiles.  These  will 
be  referred  to  as  SS  MISSILES  1  and  SS  MISSILES  2,  and 
are  also  controlled  by  their  own  individual  consoles. 

e)  Two  Surface  to  Surface  Torpedoes.   These  will  be 
considered  as  controlled  from  the  central  armament 
control  console  and  will  be  referred  to  as  T0RPED01 
and  T0RPED02. 

f)  One  Long  Range  Radar.   This  will  be  used  for  air 
target  detection  and  will  be  referred  to  as  the  AIR 
RADAR. 

g)  One  Medium  Range  Radar.   This  will  be  used  for  surface 
target  detection  and  will  be  referred  to  as  the 
SURFACE  RADAR. 

h)  Another  Medium  Range  Radar.  This  will  be  used  for 
navigation  purposes  and  will  be  referred  to  as  the 
NAVIGATION  RADAR. 

i)  .  One  Tracking  Radar.   It  will  be  considered  as 

cooperating  with  the  central  armament  control  console. 

j)   Additional  Equipment.   These  additional  equipments 

include  anything  remaining  that  is  required  to  fulfill 
the  mission  of  the  battle  ship.   For  example,  the 
communication  equipment,  the  ESM  (Electronic  Support 
Measure)  equipment,  the  ECM  (Electronic  Counter 
Measure)  equipment,  etc. 

From  the  machine  or  power  plant's  point  of  view, 

the  model  is  equipped  with  the  following: 

a)  Two  Main  Engines.   Each  one  is  installed  in  one  of  two 
engine  rooms.   The  operating  ind icators • and  their 
controls  are  installed  in  the  engine  control  room. 
These  engines  will  be  referred  to  as  MAIN  ENGINE  1  and 
MAIN  ENGINE  2. 

b)  Three  Electric  Generators.   These  three  generators 
provide  the  required  electric  power  for  the  operation 
of  all  electrical  equipment  on  the  ship.   They  are 
referred  to  as  ELECTRIC  GENERATOR  1,  2,  and  3. 

c)  Two  Electric  Power  Distribution  Tables.   These  are 
used  to  distribute  the  electric  power  to  the 
appropriate  destinations  and  they  will  be  referred  to 
as  ELECTRIC  POWER  DISTRIBUTION  TABLE  1  and  ELECTRIC 
POWER  DISTRIBUTION  TABLE  2. 
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Ill  .   DESIGN 

According  to  the  traditional  definition  of  the  design, 
when  it  is  referred  to  the  software  development,  it  is  the 
translation  of  requirements  into  ways  of  meeting  them. 
Systems  design  proceeds  through  the  two  phases:   the  logical 
design  phase  and  the  physical  design  phase  [Ref.  3]. 

The  systems  logical  design  consists  of  the  description 
of  its  features,  that  is  the  description  of  the  outputs,  the 
inputs,  the  files,  and  the  procedures,  all  in  the  manner 
that  meets  project  requirements. 

The  systems  physical  design  is  the  set  of  activities 
following  the  logical  design.   It  consists  of  a  model  for 
the  production  of  a  working  system,  that  is  the  production 
of  a  system  that  accepts  input  from  the  users,  processes 
data,  and  produces  the  appropriate  reports. 

In  this  chapter  the  logical  design  of  the  system  under 
development,  the  features  of  the  database  management  system 
that  will  be  used,  and  the  hardware  requirements  will  be 
represented.   The  physical  design  of  the  system  will  be 
represented  in  the  following  chapter  as  "Implementation"  of 
the  system. 


A.   LOGICAL  DESIGN 

According  to  the  requirements  of  the  system,  as 
previously  stated  at  the  end  of  the  previous  chapter,  it 
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must  be  usable  by  personnel  with  very  little  knowledge  about 
computers . 

Therefore,  the  architecture  of  the  system  should  be 
based  on  a  sequence  of  menus  and  submenus  which  lead  the 
user  to  the  appropriate  action.   Figure  9  shows  the 
architecture  of  such  a  menu  driven  system. 
1 .   Classes  of  System  Operations 

The  system  will  provide  the  following  four  classes 
of  oper at  ions . 

a.   Modifications  of  the  Existing  Data 

The  user  of  the  system  should  be  able  to  insert 
a  new  record,  to  delete  an  existing  one  and  to  modify  any 
record  in  the  supporting  system  files. 


MAIN  MENU 

0 

1  

N 

i     1 

„ 

SUBMENU  1 

SUBMENU2 

SUBMENU N 

0 

1  

0 

1  

0 

1  

N 

N 

N 

Figure  9.   The  Architecture  of  a  "Menu  Driven"  System 
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b.  Crew   Allocation 

The  system  should  be  able  to  provide  different 
types  of  crew  allocation.   For  example,  it  must  allocate  the 
crew  into  two  or  three  shifts,  and  to  assign  members  of  the 
crew  to  the  appropriate  positions  during  special  alert 
conditions.   The  type  of  crew  allocation  should  be  user 
selected  from  the  appropriate  submenu.   The  criteria  used 
for  each  type  of  crew  allocation  will  be  described  with  the 
corresponding  application  program. 

c.  Production    of    Reports 

A  number  of  application  programs  will  support 
the  function  of  retrieving  necessary  information  on 
personnel  from  the  database  and  producing  the  appropriate 
lists  and  reports. 

d.  Assistance  Operations 

Although  the  above  operations  can  satisfy  the 
requests  of  the  system,  an  additional  function  related  to 
the  tracking  of  modifications  that  have  been  done  to  the 
supporting  system  files  is  necessary.   This  audit  trail  will 
be  contained  in  a  file  "Spy"  in  which  any  modifications  of 
the  supported  files  will  be  recorded  with  the  time,  the 
date,  and  the  user's  name.   This  file  should  not  be  accessi- 
ble through  the  main  menu  or  any  submenu  for  security 
reasons.   Also  system  access  security  should  be  provided  at 
system  start-up  through  a  password  control  system. 
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A  "USER"  file  will  contain  user(s)  characteris- 
tics and  corresponding  password (s).   A  second  file  "STATIST" 
will  accumulate  the  information  on  members  of  the  crew  that 
are  deleted  for  any  reason.   Neither  file  should  be 
accessible  through  the  menu  system. 
2.   The  Output  Reports 

Before  describing  the  supporting  system  files,  it  is 
desirable  to  describe  the  required  outputs.   This  can  help 
to  better  understand  and  organize  data  into  the  supporting 
system  files,  which  in  turn  supports  avoidance  of  data 
duplication . 

The  required  system  output  reports  in  the  form  of 
tables  and  lists  are  the  following: 

a)  Crew  allocation  into  2  shifts 

b)  Crew  allocation  into  3  shifts 

c)  Crew  allocation  for  surface  alert 

d)  Crew  allocation  for  air  alert 

e)  Crew  allocation  for  general  alert 

f)  List  of  men  available  to  participate  in  some  special 
purpose  groups  during  one  of  the  above  alerts 

g)  List  of  personnel  that  serve  in  the  battle  ship  in 
some  user  defined  order 

h)   List  of  the  personnel  with  those  current  service  time 
in  the  ship 

i)   List  of  the  personnel  with  their  home  addresses,  and 
phone  numbers 

j)   List  of  the  personnel  allocated  into  departments 

k)   List  of  the  personnel  allocated  into  subdepartments 
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3.   Required  Input  Information 

In  order  to  provide  the  previously  described  output 
reports,  the  following  information  must  be  input  to  the 
system. 

a.  Personnel  Information 

Each  member  of  the  crew  in  the  battle  ship  has, 
in  addition  to  his  name,  a  serial  number,  a  rank,  a  job 
specialization,  a  home  address,  and  a  home  phone  number. 
Also  he  has  a  specific  date  in  which  he  has  been  received  on 
the  battle  ship  and  a  date  that  he  will  finish  his  service 
obligations  (in  case  he  belongs  to  lower  level  personnel)  or 
he  will  depart  from  the  ship  for  another  tour  of  duty.   In 
the  latter  case  the  date  of  departure  is  not  always  known  in 
advance,  but  is  announced  a  few  months  before  the  departure. 

The  above  information  about  the  personnel  is 
enough  for  the  construction  of  the  periodic  reports 
previously  described.   However,  for  job  assignments 
additional  information  is  required. 

b.  Job    Position    Information 

In  order  for  the  assignment  of  job  positions  to 
be  successful  in  the  various  cases,  first  the  description  of 
the  job  positions  must  be  included  in  the  input  information. 
Additionally,  the  specialization  and  rank  of  the  required 
crew  member  must  be  stated.   Finally  the  hierarchical 
structuring  of  the  departments  and  subdepar tments  along  with 


44 


the  specializations  of  the  personnel  that  each  one  requires 
must  be  stated. 

4 .   Description  of  the  Supporting  Application  Files 

The  following  files  should  be  used  in  order  to 
include  all  required  input  information. 

a.   Personnel  File 

Structure  for  file:   CREWMEMB 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

NAME 

C 

18 

03 

RANK 

C 

4 

04 

SPEC 

C 

4 

05 

INDATE 

DATE 

8 

06 

OUTDATE 

DATE 

8 

07 

ADDRESS 

C 

20 

08 

PHONE 

C 

8 

b.   Ranks  File 


Structure  for  file: 


RANKS 


FIELD 
01 
02 


NAME 
RANKCODE 
RANKNAME 


TYPE 
C 
C 


WIDTH 
4 
15 
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c.   Specialization  File 

Structure  for  file:   SPECIALT 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SPECODE 

C 

4 

02 

SPECNAME 

C 

15 

03 

SUBDPCODE 

C 

4 

d.   Sudepartment  File 


Structure  for  fi 

le: 

:   SUBDEPTN 

FIELD 

NAME 

TYPE 

WIDTH 

01 

SUBDPCODE 

C 

4 

02 

SUBDBNAME 

C 

15 

03 

DEPCODE 

C 

4 

e.  Department  File 

Structure  for  file:   DEPARTM 

FIELD         NAME           TYPE  WIDTH 

01  DEPCODE         C  4 

02  DEPNAME         C  10 

f.  Alert  File 

The  alert  file  contains  the  positions  that 
should  be  filled  during  a  general  alert  with  the 
requirements  for  rank  and  specialization  of  the  individual 
who  will  fill  each  position. 
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Structure  for  file:   ALERT 


FIELD 

NAME 

TYPE 

WIDTH 

01 

POSCODE 

C 

4 

02 

DESCR 

C 

15 

03 

REQSPEC 

C 

4 

04 

REQRANK 

C 

4 

g.   File  Containing  the  Crew  Member's  Requests  for 
Leave 


Structure  for  file:   REQLEAVE 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

REMLEAVE1 

N 

2 

03 

REQUEST1 

DATE 

8 

04 

REQ1DUR 

DATE 

8 

05 

REQUEST2 

DATE 

8 

06 

REQ2DUR 

DATE 

8 

h.   File  Containing  the  Users'  Name  and 
Corresponding  Passwords 


Structure  of  files:   USERS 

FIELD         NAME           TYPE  WIDTH 

01  PASSWORD        C  6 

02  USERNAME        C  18 
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i .       Spy    File 

Structure    for    file:       SPY 


FIELD 

NAME 

TYPE 

WIDTH 

01 

DATE 

DATE 

8 

02 

TIME 

C 

5 

03 

USERNAME 

C 

18 

04 

JOBDESCR 

C 

12 

05 

PROGNAME 

C 

10 

File    that    Contains    the    Information   on    Members 
of    the    Crew    that    Have    Been    Deleted    from    the 
Ship's    Organization    for    Any    Reason 


Structure  for  file:   STATIST 


FIELD 

NAME 

TYPE 

WIDTH 

01 

SERNO 

C 

5 

02 

NAME 

C 

18 

03 

RANK 

C 

4 

04 

SPEC 

C 

4 

05 

INDATE 

DATE 

8 

06 

OUTDATE 

DATE 

8 

Description  of  the  Codes  Used  in  the  Supporting 
Application  Files 

a.   Codes  for  Ranks 

CODE  NAME 

FF10  COMMANDER 

FF20  LT.  COMMANDER 
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FF30 

LIEUTENANT 

FF40 

LIEUTENANT  JG 

FF50 

ENSIGN 

PF10 

MASTER  CHIEF  PO 

PF20 

SENIOR  CHIEF  PO 

PF3  0 

CHIEF  PO 

PF40 

PO  1ST  CLASS 

PF50 

PO  2ND  CLASS 

PF60 

PO  3RD  CLASS 

SM10 

SEAMAN 

b.   Codes 

for  Specialization 

CODE 

NAME 

D001 

DECK 

D002 

WEAPON  USER 

D003 

WEAPON  CONTROL 

D004 

COMMUNICATION 

D005 

NAVIGATION 

D006 

RADAR  USER 

D007 

SANITARY 

D008 

SUPPLY 

E001 

ENGINEER 

E002 

ELECTRICIAN 

E003 

ELECTRONIC 
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c.  Codes  for  Departments 

CODE  NAME 

D000  DECK  DPTM. 

M000  MACHINE  OP. 

d .  Codes  for  Subdepartments 

CODE  NAME 

D100  ADMINISTRATION 

D200  WEAPONS 

D300  COMBAT  INFO 

D400  COMMUNICATIONS 

D500  NAVIGATION 

M100  MAIN  ENGINES 

M200  DAMAGE  CONTROL 

M300  ELECTRIC  INSTAL 

M400  ELECTRON.  EQUIP 

M500  SPARE  PARTS 

e.  Codes  for  Alert  Positions  (POSCODE) 

CODE  DESCRIPTION 

0001  COMMAND  OFFICER 

0002  NAVIGATOR 

0003  NAVIG.  RADAR 

0004  HELMSMAN 

0005  HF  BRIDGE  COMM. 

0006  UHF  BRIDGE  COMM 

0007  LEFT  OBSERVER 
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0008  RIGHT  OBSERVER 

0009  CIC  SUPERVISOR 

0010  AIR  RADAR 

0011  SURFACE  RADAR 

0012  TRACK  RADAR 

0013  CIC  COMMUNICAT. 

0014  .  E.S.M. 

0015  E.C.M. 

0016  CENTR  WEAP  CONT 

0017  GUN  31  CONSOLE 

0018  31  AMMO  SUPPL1 

0019  31  AMMO  SUPPL2 

0020  GUN  32  CONSOLE 

0021  32  AMMO  SUPPl 

0022  32  AMMO  SUPPL2 

0023  GUN  33  CONSOLE 

0024  33  AMMO  SUPPL1 

0025  33  AMMO  SUPPL2 

0026  GUN  41  CONTROL 

0027  GUN  42  CONTROL 

0028  TORPEDO  TUBE  1 

0029  TORPEDO  TUBE  2 

0030  A/A  MISS  CONTR 

0031  A/A  MISS  TELEPH 

0032  A/A  MISSILES  1 
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0033  A/A  MISSILES  2 

0034  SS  MISS  CONTR 

0035  SS  MISS  TELEPH 

0036  SS  MISSILES  1 

0037  SS  MISSILES  2 

0038  RADIO  ROOM  SUP 

0039  TELETYPE  1 

0040  TELETYPE  2 

0041  HF  COMMUNICAT 

0042  SURG  ROOM  SUPER 

0043  SURG  ROOM  1 

0044  SURG  ROOM  2 

0045  SURG  ROOM  3 

0046  ENG  CONTR  ROOM 

0047  MAIN  ENG1  ASS1 

0048  MAIN  ENG1  ASS2 

0049  MAIN  ENG2  ASS1 

0050  MAIN  ENG2  ASS2 

0051  ELECTR  GENERATl 

0052  ELECTR  GENERAT2 

0053  ELECTR  GENERAT3 

0054  DISTR  TABLE  1 

0055  DISTR  TABLE  2 

0056  DAMAGE  CONTROL  1 

0057  DAMAGE  CONTROL  2 
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0058  DAMAGE  CONTROL  3 

0059  DAMAGE  CONTROL  4 

0060  DAMAGE  CONTROL  5 

0061  DAMAGE  CONTROL  6 

0062  DAMAGE  CONTROL  7 
006  3  DAMAGE  CONTROL  8 

B.   SOFTWARE  REQUIREMENTS  FOR  SYSTEM  IMPLEMENTATION 

The  dBASE  III,  which  will  be  used  for  the  implementation 
of  the  personnel  management  system  under  discussion,  is  a 
relational  DBMS  (database  management  system)  for  micro- 
computers . 

It  contains  its  own  extremely  powerful  programming 
language  which  permits  the  user  to  easily  create  his  own 
application  programs  regardless  of  complexity. 

The  most  important  features  as  well  as  the  limitations 
of  dBASE  III,  as  described  by  E.  Jones  [Ref.  4]  and  A. 
Simpson  [Ref.  5]  are  described  below. 

1.   Features  of  dBASE  III 

a)  Program/data  dependence.   Changes  in  file  structure  do 
not  affect  the  application  programs. 

b)  Data  can  be  easily  updated. 

c)  Date  and  Memo  data  types  are  provided.   In  addition  to 
the  common  data  types,  such  as  characters,  numerics, 
and  logicals  that  are  provided  by  other  database 
management  systems,  dBASE  III  provides  the  "Date"  data 
type  which  is  a  very  powerful  tool  for  dates 
management,  and  the  "Memo"  data  type  for  managing 
texts . 
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d)  Information  saving.   dBASE  III  can  save  information  as 
disk  files  in  nine  specialized  formats  each  serving  a 
specific  dBASE  III  processing  need. 

e)  Sorting  and  indexing  capabilities. 

f)  Creation  and  printing  of  formatted  reports. 

g)  Date  arithmetic. 

h)   Built-in  high  level  DML  language. 

i)   Interface  capabilities.   The  dBASE  III  allows 
interfacing  with  other  software  systems,  i.e., 
SuperCalc,  the  Symphony,  WordStar,  etc. 

2.   Limitations  of  dBASE  III 

a.  Number  of  Records  in  Each  File 

Each  database  file  can  have  up  to  1  billion 
records  maximum,  and  the  maximum  size  of  each  file  is  2 
billion  bytes. 

b.  Number  of  Fields  in  Each  Record 

Each  record  can  have  up  to  128  fields.   The 
width  of  these  fields  can  be  no  longer  than  4,000 
characters . 

c.  Number  of  Database  Files  Open  at  the  Same  Time 
Ten  database  files  can  be  opened  at  the  same 

time,  or  fifteen  files  of  all  types.   Seven  index  and  one 
format  file  can  be  opened  for  each  active  database  file. 

d.  File  Names  and  Field  Name  Lengths 

File  names  can  be  up  to  8  characters  long,  while 
field  names  can  be  up  to  10  characters  long. 
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e.   Active  Memory  Variables 

The  maximum  number  of  active  memory  variables  is 
256.   The  total  number  of  bytes  for  memory  variables  is 
6,000. 

All  of  the  above  values  may  be  limited  by  the 
computer  hardware  configuration. 

C.   HARDWARE  REQUIREMENTS  FOR  SYSTEM  IMPLEMENTATION 

The  system  can  operate  on  a  16-bit  microcomputer  that 
uses  MS  DOS  or  PC  DOS  version  2.0  or  newer,  for  example  on 
an  IBM  PC,  on  an  IBM  PC/XT  or  any  other  16-bit  microcomputer 
fully  compatible  with  one  of  the  above  mentioned 
microcomputers . 

256K  of  RAM  memory  is  the  minimum  requirement  of  the 
supporting  database  package.   Although  one  disk  drive  can 
possibly  be  used,  two  disk  drives  is  strongly  recommended. 
The  best  configuration  is  one  disk  drive  and  one  hard  disk. 
A  10M  hard  disk  is  recommended  because  it  is  the  most 
common,  inexpensive,  and  reasonable  configuration  of  a 
microcomputer.   A  hard  disk  is  not  required  because  of 
storage  requirements,  since  all  files  and  the  application 
programs  can  be  stored  on  a  floppy-disk  based  system. 
However,  it  does  greatly  improve  the  execution  time  of  the 
programs  used  in  this  application. 

Any  80  column  printer  able  to  interface  with  the  above 
mentioned  microcomputers  can  be  used. 
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IV.   IMPLEMENTATION 

The  system's  "implementation"  or  "Physical  Design"  is 
the  set  of  activities  following  the  "Logical  Design",  and 
it  consists  of  the  production  of  a  working  system,  that  is 
the  production  of  a  system  that  accepts  input  from  the 
users,  processes  data  and  produces  the  appropriate  reports 
[Ref  .  3] . 

One  very  important  job  during  the  development  of  a 
software  product  is  the  construction  of  the  user's  manual. 
Without  it,  only  the  creator  of  the  system  can  use  it. 

User's  manuals  differ  in  size  and  complexity  according 
to  the  nature  of  the  developed  system.   Therefore,  user's 
manuals  can  be  as  simple  as  a  few  pages  of  notes  about  the 
use  of  the  system,  or  as  detailed  as  volumes  of  descriptions 
on  the  functions  of  the  system. 

The  system  under  development  is  a  "Menu  driven"  system, 
in  which  the  user  is  led  to  the  appropriate  operation 
through  the  main  menu,  the  submenus  and  his  answers  to  the 
questions  asked  by  the  system.   But,  to  better  support  user 
understanding  about  what  is  taking  place  during  the  various 
actions  of  the  system,  a  detailed  description  of  the 
application  programs  is  given  in  this  chapter.   This 
description  is  based  on  operational  details  rather  than  on 
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detailed  structure  of  the  application  programs.   It 
substitutes  the  user's  manual. 

A.   RUNNING  THE  SYSTEM 

The  user  of  the  system  has  to  call  the  "MASTER  PROGRAM" 
by  its  name  (DO  masterpr) .   The  first  thing  that  this 
program  does  is  to  ask  the  user  to  insert  his  password. 
There  is  a  file  in  the  system  named  "USERS"  that  contains 
the  user(s)  name(s)  with  corresponding  password (s). 
Therefore,  more  than  one  user  can  use  the  system  if  desired. 
This  file  is  not  accessible  to  the  user  through  the  main 
menu,  or  through  the  different  submenus. 

If  the  user  of  the  system  inserts  an  incorrect  password, 
he  is  exited  to  the  operating  system  after  receiving  a 
message  that  he  is  not  an  authorized  user.   If  the  user 
inserts  the  correct  password,  then  the  "MASTERPR"  calls  the 
program  "MAINMENU"  which  presents  to  the  user  his  choices. 
The  icon  of  the  main  menu  is  shown  in  Figure  10. 


MAIN  MENU 

EXIT  TO  OPERATING  SYSTEM 0 

UDATE  SUPPORTING  FILES 1 

CREW  ALLOCATION 2 

LISTS  AND  REPORTS 3 

EXITTOdBASE  III 4 


Figure    10.       The    Icon    of    the    Main    Menu 
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If  the  user's  choice  is  "0"  then  he  is  exited  to  the 
operating  system,  and  if  his  choice  is  "4"  he  is  exited  to 
dBASE  III.   The  last  option  is  for  programmers  when  any 
modification  must  be  done  in  any  of  the  application 
programs,  and  for  the  manager  of  the  system  when  he  wants  to 
access  information  created  by  the  system  but  unaccessible 
through  the  main  menu  and  submenus.   In  all  the  other  cases 
(choice  1,  2,  3)  the  appropriate  program  is  called,  which  in 
turn  calls  the  corresponding  submenu  for  further  direction 
of  the  user  through  the  different  operations  that  the  system 
can  provide  to  him. 

A  small  routine  named  "DELAY"  is  frequently  used  in  many 
of  the  application  programs  to  produce  a  small  delay  of  the 
messages  on  the  screen.   Without  this  delay  the  messages 
would  not  be  viewable  by  the  user. 

B.   UPDATING  THE  SUPPORTING  SYSTEM  FILES 

When  the  user's  choice  from  the  main  menu  is  "1"  then 
the  "MASTERPR"  calls  the  program  "UPDATEDB" .   This  program 
controls  the  different  options  available  to  the  user  for 
updating  of  the  supporting  system  files. 

The  menu  "SUBMENU  1",  is  represented  to  the  user,  as  it 
appears  in  Figure  11. 

As  presented  in  this  submenu,  the  user  has  the  following 
options : 
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a)  To  exit  into  main  menu  by  selecting  "0". 

b)  To  insert  new  records  in  "CREWMEMB"  file  by  selecting 
"1". 

c)  To  modify  records  in  "CREWMEMB"  file  by  selecting  "2" 

d)  To  modify  records  in  "REQLEAVE"  file  by  selecting  "3" 

e)  To  delete  records  from  "CREWMEMB"  file  by  selecting 
"4". 


SUBMENU  1 

EXIT  TO  MAIN  MENU 0 

INSERT  RECORDS  INTO  CREWMEMB 1 

MODIFY  RECORDS  INTO  CREWMEMB 2 

MODIFY  RECORDS  INTO  REQLEAVE 3 

DELETE  RECORDS  FROM  CREWMEMB 4 


Figure  11.   The  Icon  of  the  Submenu  1 

1 .   Inserting  Records  into  "CREWMEMB"  File 

When  the  user  selects  the  option  of  inserting  new 
files  into  "CREWMEMB",  the  "INSCREW"  program  is  called. 
This  program  calls  at  the  program  "SCREEN  1"  which  presents 
to  the  user's  screen  a  frame  in  which  all  interactive 
procedures  take  place. 

The  user  is  asked  to  insert  the  serial  number  of  the 
new  crew  member  to  be  inserted.   If  this  serial  number  does 
not  exist  in  the  file  "CREWMEMB",  i.e.,  the  new  member  does 
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not  already  exist,  the  system  asks  the  user  if  he  wants  to 
see  the  codes  for  ranks  and  specialties. 

If  the  user  answers  affirmatively  then  the  "INSCREW" 
program  calls  the  program  "CODESCR"  which  generates  a  new 
frame  on  the  user's  screen  which  contains  the  codes  for 
ranks  and  specialties. 

The  "INSCREW"  program  presents  to  the  user  for  entry 
all  the  appropriate  fields  of  a  new  record,  with  the 
exception  of  the  field  "outdate."   The  disenrollment  date 
for  a  crew  member  is  in  general  not  known  at  the  time  he 
reports  to  the  ship. 

The  program  inserts  the  information  into  the 
"CREWMEMB"  file,  and  prompts  the  user  to  update  the  file 
containing  the  requests  for  leave,  that  is  the  "REQLEAVE" 
file.   The  fields  of  the  records  of  this  file  are  presented 
to  the  user  for  input.   The  user  may  or  may  not  insert 
information  in  this  file  at  this  time,  however,  a  leave 
request  record  corresponding  to  the  new  member  is  created  at 
this  time. 

The  system  continues  with  multiple  entries  depending 
on  the  user's  answer  to  the  system's  question  "MORE 
INSERTIONS?".   When  the  user  has  no  other  insertions  to 
make,  and  he  answers  "No"  to  the  question  "MORE  INSERTIONS", 
he  is  exited  to  submenu  1,  for  selection  of  another  option 
or  return  to  the  system  through  the  main  menu. 
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At  the  end  of  the  execution(s)  of  program  "INSCREW" 
if  any  insertions  have  been  made  an  entry  in  the  "SPY"  file 
is  automatically  made  with  the  user  name,  date,  the  time 
and  the  program  name. 

2.  Modifying  Records  in  "CREWMEMB"  File 

When  the  user  selects  the  option  to  modify  one  or 
more  records  in  the  "CREWMEMB"  file,  the  program  "SCREEN  1" 
is  called  to  install  the  interactive  frame.   The  appropriate 
record  is  located  by  insertion  of  the  serial  number  of  the 
crew  member  whose  record  must  be  modified,  and  the 
modifiable  fields  are  presented  to  the  user.   The  enrollment 
date  of  the  crew  member  and  his  specialty  are  not  presented 
because  these  fields  cannot  be  changed.   If  the  user  wants 
help,  he  can  see  the  codes  for  ranks  by  answering  "Yes"  to 
the  corresponding  question,  which  causes  the  program 
"RANKSCR"  to  be  called  which  generates  a  frame  containing 
the  appropriate  information. 

The  modified  record  is  presented  to  the  user  a  final 
time  before  he  is  asked  for  "MORE  MODIFICATIONS",  while  the 
appropriate  information  is  inserted  into  the  "SPY"  file  each 
time  a  modification  has  taken  place. 

3.  Modifying  Records  in  "REQLEAVE"  File 

When  the  user  selects  the  option  of  modifying 
records  in  the  "REQLEAVE"  file,  the  appropriate  record  is 
located  by  insertion  of  the  serial  number  of  the  crew  member 
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whose  record  must  be  modified,  the  corresponding  fields  from 
a  record  contained  in  the  "REQLEAVE"  file  which  are  modifi- 
able are  presented  to  the  user  and  an  entry  in  the  "SPY" 
file  is  made  whenever  any  modification  is  made. 
4 .   Deleting  Records  from  "CREWMEMB"  File 

Finally,  when  the  user  selects  the  option  of 
deleting  a  record  from  the  "CREWMEMB"  file,  the  selection 
sequence  of  actions  is  the  same.   When  a  record  from  the 
"CREWMEMB"  file  is  deleted,  the  record  for  the  crew  member 
in  the  "REQLEAVE"  file  is  deleted  also.   Information  about 
the  deleted  crew  member  is  inserted  into  the  "STATIST"  file 
for  statistic  purposes,  and  an  entry  in  the  "SPY"  file  is 
made . 

Other  support  system  files  can  be  updated,  but  these 
options  are  not  available  to  the  normal  user  of  the  system 
for  reasons  of  information  integrity. 

C.   PERFORMING  THE  CREW  ALLOCATION 

When  the  user's  choice  from  the  main  menu  is  "2"  the 
"MASTERPR"  calls  the  program  "ALLOCATE".   This  program 
controls  the  different  options  available  to  the  user  for 
performing  crew  allocation. 

The  program  "ALLOCATE"  calls  the  program  "SUBMENU2" 
which  generates  and  represents  to  the  user  submenu  2,  as 
shown  in  Figure  12. 

According  to  this  submenu,  the  user  of  the  system  has 
the  following  options: 
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a) 
b) 

c) 

d) 

e) 
f) 


To  exit  the  main  menu  by  selecting  "0". 

To  assign  the  appropriate  persons  into  the  appropriate 
position  during  a  general  alert  by  selecting  "1". 

To  assign  the  appropriate  person  into  the  appropriate 
position  during  a  surface  alert  by  selecting  "2". 

To  assign  the  appropriate  person  into  the  appropriate 
position  during  an  air  alert  by  selecting  "3". 

To  allocate  the  crew  into  two  shifts  by  selecting  "4". 

To  allocate  the  crew  into  three  shifts  by  selecting 
"5". 


SUBMENU  2 

EXIT  TO  MAIN  MENU 0 

CREW  ALLOCATION  FOR  GENERAL  ALERT 1 

CREW  ALLOCATION  FOR  SURFACE  ALERT 2 

CREW  ALLOCATION  FOR  AIR  ALERT 3 

CREW  ALLOCATION  INTO  TWO  SHIFTS 4 

CREW  ALLOCATION  INTO  THREE  SHIFTS 5 


Figure  12.   The  Icon  of  the  Submenu  2 

1 .   Crew  Allocation  for  "General"  Alert 

When  the  user  selects  the  option  of  allocating  the 
crew  into  general  alert  positions,  the  "ALLOCATE"  program 
calls  the  "GENALERT"  program.   This  program  calls  the 
program  "SCREEN2"  which  simply  generates  a  frame  on  the 
user's  screen  with  program  progress  reports. 
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The  program  "GENALERT"  creates  two  files  named 
"TMPCREW"  and  TMPALERT"  which  are  deleted  at  the  end  of  the 
execution  of  the  program  "GENALERT".   In  the  first  file  the 
"CREWMEMB"  file  is  copied  and  in  the  second  file  the  "ALERT" 
file  is  copied . 

Also  the  program  "GENALERT"  erases  all  records 
contained  in  the  file  "GALERT" .   In  this  file  the  records 
resulting  from  a  previous  execution  of  the  program 
"GENALERT"  are  stored,  and  they  are  deleted  for  storage  of 
the  records  from  the  new  execution  of  program  "GENALERT". 

The  file  "TMPALERT"  is  used  as  a  reference,  and 
sequentially  contains  for  each  record  of  this  file, 
information  about  the  position  that  must  be  manned,  and  the 
required  rank  (reqrank)  and  required  specialty  (reqspec). 
"TMPALERT"  file  positions  are  matched  with  members  contained 
in  the  "TMPALERT"  file. 

If  a  person  is  found  (having  the  required  rank  and 
specialty  is  located)  his  rank,  name,  and  specialty  are 
inserted  in  the  file  "GALERT"  along  with  the  position  code 
and  the  position  description.   Otherwise  the  position 
remains  unmanned,  and  the  next  position  is  examined. 

If,  after  all  the  positions  contained  in  the  file 
"TMPALERT"  have  been  examined  and  some  remain  unmanned,  the 
user  is  informed  that  some  positions  remain  unmanned  due  to 
a  mismatch  of  the  requirements  and  the  personnel  availa- 
bility.  He  is  asked  if  he  wants  to  proceed  ignoring  the 
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factor  rank.   If  the  user  agrees  only  the  specialty  factor 
is  used  for  matching  and,  of  course,  only  the  unmanned 
positions  and  the  remaining  personnel  are  examined. 

If,  at  the  end  of  this  iteration,  positions  still 
remain  unmanned  and  personnel  are  available,  the  user  is 
informed  and  prompted  to  fill  the  remaining  positions 
regardless  of  the  rank  and  specialty  of  the  remaining 
personnel.   If  his  answer  is  "Yes"  this  task  is  performed  by 
assigning,  in  sequential  order,  the  remaining  personnel  to 
the  remaining  positions. 

If,  at  the  end  of  this  third  loop,  personnel  remain 
unassigned,  the  user  is  asked  if  he  wants  to  see  these 
personnel.   If  he  answers  "Yes"  then  the  available  personnel 
are  displayed  to  him.   The  same  thing  happens  whenever  the 
user  rejects  the  solution  when  the  required  rank  or 
specialty  is  to  be  ignored.   In  this  case  only  the  positions 
which  requirements  match  exactly  with  the  available 
personnel  are  filled.   The  other  positions  remain  unmanned 
and  the  available  personnel  are  presented  to  the  user  for 
manual  completion  of  the  allocation. 

At  the  end  of  the  execution  of  the  program,  an  entry 
in  the  "SPY"  file  is  made  concerning  the  execution  of  this 
program. 

2.   Crew  Allocation  for  "Surface"  or  "Air"  Alert 

The  same  scenario  occurs  when  the  user  wants  to 
perform  a  crew  allocation  for  a  surface  or  an  air  alert.   In 
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the  first  case  the  program  "SURFALERT"  is  called  to  perform 
the  appropriate  allocation  and  the  file  "SALERT"  is  used  for 
storage  of  the  records  from  the  new  execution  of  program 
"SURFALERT".   In  the  last  case  the  program  "AALERT"  is 
called  to  take  care  of  the  crew  allocation  for  a  surface 
alert  condition  and  the  file  "AALERT"  is  used  for  storage  of 
records  from  the  execution  of  this  program. 

The  difference  between  the  crew  allocation  for  a 
general  alert  and  the  crew  allocation  in  the  last  two  cases 
is  that  some  positions  not  required  to  be  manned  in  each  one 
of  the  last  cases  are  deleted  from  the  "TMPALERT"  file 
(which  contains  the  positions  to  be  manned  with  correspond- 
ing requirements)  before  any  processing  takes  place. 
3 .   Crew  Allocation  into  Two  Shifts 

When  the  user  selects  the  option  of  allocating  the 
personnel  into  two  shifts  the  program  "SHIFT2"  is  called  by 
the  program  "ALLOCATE". 

The  program  "SHIFT2"  calls  the  program  "SCREEN2" 
which  in  turn  installs  the  screen  frame  for  interactive  use 
during  the  execution  of  the  program  "SHIFT2". 

The  file  "CREWMEMB"  is  copied  into  file  "TMPSHIFT" 
and  the  records  in  this  file  are  indexed  on  specialty  and 
rank.   Therefore,  during  the  division  of  the  personnel  into 
two  shifts,  each  shift  will  contain  the  same  or  almost  the 
same  number  of  persons  of  each  specialty  and  rank.   The  file 
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"TMPSHIFT"  is  erased  at  the  end  of  the  execution  of  the 
program  "SHIFT2" . 

Two  more  files  are  used  and  both  are  cleared  of 
contents  at  the  beginning  of  the  execution  of  the  program 
"SHIFT2".   These  files  are  the  "SHIFT2_A"  and  the  "SHIFT2_B" 
files.   Both  contain  records  resulting  from  the  execution  of 
the  program  "SHIFT2". 

The  indexed  file  "TMPSHIFT"  is  used  and  the  members 
of  the  crew  are  divided  into  two  shifts,  i.e.,  the  first 
member  into  shift  A,  the  second  into  shift  B,  the  third  into 
shift  A  again,  the  fourth  into  shift  B,  and  so  on.   As 
previously  mentioned,  the  members  of  the  crew  in  the  file 
"TMPSHIFT"  are  already  sorted  according  to  specialty  and 
rank.   The  results  of  the  division,  therefore,  does  not 
differ  much  according  to  specialty  and  rank  of  the  members. 
When  the  allocation  is  finished,  options  are  given  to  the 
user  to  view  one  of  the  two  shifts  or  both  on  his  screen. 
When  he  does  not  want  to  see  the  shift  listing  anymore,  he 
selects  the  "exit"  option  which  exits  to  the  submenu  2  for 
performing  another  option  or  for  exiting  from  the  system 
through  the  main  menu. 

Again  a  corresponding  entry  in  file  "SPY"  is  made 
for  the  transaction. 

4 .   Crew  Allocation  into  Three  Shifts 

The  similar  routine  occurs  when  the  user  selects  the 
option  to  allocate  the  personnel  into  three  shifts.   In  this 
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case  the  program  "SHIFT3"  is  called  to  perform  the  required 
allocation  and  the  results  from  the  execution  of  these 
program  shifts  are  inserted  into  three  files  names 
"SHIFT3_A",  "SHIFT3_B",  and  "SHIFT3_C". 

A  small  routine  named  "DELAY1"  is  used  to  provide 
the  appropriate  delay  for  screen  presentations;  and  an  entry 
in  the  "SPY"  file  is  made  for  the  transaction. 

D.   PROCURING  THE  REQUIRED  LISTS 

When  the  user's  choice  from  the  main  menu  is  "3"  the 
"MASTERPR"  calls  the  program  "REPORTER".   This  program 
controls  the  different  options  available  to  the  user  for 
producing  the  required  lists. 

The  program  "REPORTER"  calls  the  program  "SUMENU3"  which 
generates  and  represents  to  the  user  the  submenu  3  as  shown 
in  Figure  13. 


SUBMENU  3 

0 

1 
? 

EXIT  TO  MAIN  MENU 

LIST  OF  CREW  IN  SOME  ORDER 

LIST  OF  REQUESTED  INFO  OF  CREW 

LIST  OF  CREW  OF  A  REQUESTED  DEPARTMENT 

3 

LIST  OF  CREW  OF  A  REQUESTED  SUBDEPARTMENT  4 

LIST  OF  CREW  ALLOCATED  INTO  2  SHIFTS 

Pi 

LIST  OF  CREW  ALLOCATED  INTO  3  SHIFTS 

fi 

SHIP  ORGANIZATION  DURING  SURFACE  ALERT  ... 

....  7 

SHIP  ORGANIZATION  DURING  AIR  ALERT 

....  8 

SHIP  ORGANIZATION  DURING  GENERAL  ALERT  ... 

9 

Figure  13.   The  Icon  of  the  Submenu  3 
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According  to  this  submenu,  the  user  of  the  system  has 
the  following  options: 

a)  To  exit  into  main  menu  by  selecting  "0". 

b)  To  produce  a  list  of  crew  sorted  in  some  user  selected 
order  by  selecting  "1". 

c)  To  produce  a  list  of  crew  containing  only  the  desired 
information  by  selecting  "2". 

d)  To  produce  a  list  of  specific  department  members  by 
selecting  "3". 

e)  To  produce  a  list  of  specific  subdepartment  members  by 
selecting  "4". 

f)  To  produce  a  list  of  crew  allocated  into  two  shifts  by 
selecting  "5". 

g)  -  To  produce  a  list  of  crew  allocated  into  three  shifts 

by  selecting  "6". 

h)   To  produce  a  list  showing  the  ship's  organization 
during  a  surface  alert  by  selecting  "7". 

i)   To  produce  a  list  showing  the  ship's  organization 
during  an  air  alert  by  selecting  "8". 

j)   To  produce  a  list  showing  the  ship's  organization 
during  a  general  alert  by  selecting  "9". 

All  of  the  above  lists  are  produceable  either  on  the 
user's  screen  or  on  his  printer,  as  selected. 

1 .   List  of  Crew  Sorted  in  Some  User  Defined  Order 

When  the  user  selects  the  option  of  producing  a  list 
of  crew  members  sorted  in  some  order,  the  "REPORTER"  program 
calls  the  "LIST  1"  program.   This  program  clears  the  file 
"ORDCREW",  which  will  contain  the  records  created  during  the 
program  execution.   The  program  "LIST  1"  uses  the  file 
"CREWMEMB" ,  which  contains  information  on  crew  members, 
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and  replaces  the  codes  used  for  ranks  and  specialties  with 
their  corresponding  names. 

The  user  is  asked  if  he  wants  the  list  sent  to  his 
screen  or  to  his  printer,  which  assigns  the  appropriate 
value  to  a  Boolean  variable  named  "printer",  used  for  the 
selection  of  the  desired  output  device. 

The  program  "SCREEN2"  is  called  which  generates  a 
frame  on  the  user's  screen.   In  this  frame  the  user  options 
are  presented.   By  selecting  one  of  the  options  the  user  can 
produce  a  list  of  crew  members  sorted  on  names,  on  ranks,  on 
enrollment  date,  or  on  disenrollment  date. 

At  the  end  of  the  presentation  or  printing  of  the 
list  the  user  is  asked  if  he  wants  to  repeat  the  process. 
If  he  answers  affirmatively,  the  action  is  repeated, 
otherwise  he  is  exited  to  submenu  3  for  another  option. 

2 .   Lists  of  the  Crew  Containing  Selected  Information 

When  the  user  selects  the  option  of  producing  a  list 
of  crew  members  containing  only  selected  information,  the 
"REPORTER"  program  calls  the  "LIST  2"  program.   This  program 
clears  the  file  "INFOCREW",  in  which  the  records  created 
during  the  program  execution  are  stored,  uses  the  file 
"CREWMEMB"  and  replaces  the  codes  used  for  ranks  and 
specialties  with  those  names. 

The  user  is  asked  if  he  wants  the  list  on  his  screen 
or  on  his  printer  and  the  program  "SCREEN2"  is  called  to 


70 


generate  the  user's  option  frame.   By  selecting  one  of  the 
options  the  user  can  produce  a  crew  members  list  containing 
names  and  ranks,  names  and  phone  numbers,  names  and 
addresses,  and  names,  addresses  and  phone  numbers.   The 
lists  of  these  groups  are  always  sorted  on  names. 

At  the  end  of  the  presentation  or  printing  of  the 
list  the  user  is  asked  if  he  wants  to  view  the  list  again  or 
to  make  another  copy;  depending  on  his  answer,  he  is 
provided  again  with  the  appropriate  list  or  he  is  exited  to 
submenu  3. 

3.   List  of  the  Crew  Allocated  to  a  Specific  Department 

When  the  user  wants  to  produce  a  list  of  personnel 
of  a  specific  department,  the  program  "LIST  3"  is  called  by 
the  program  "REPORTER".   The  procedures  of  selecting  the 
output  device,  of  presenting  the  options  to  the  user,  and 
for  multiple  executions  of  the  program  "LIST  3"  are  the 
same  as  the  previously  described  cases. 

The  file  "DEPLST"  is  cleared  and  used  for  storage  of 
the  new  records  created  by  the  program  "LIST  3",  and  the 
"CREWMEMB"  file  is  used  to  provide  the  required  information 
of  personnel.   For  each  member  of  the  crew  contained  in  the 
"CREWMEMB"  file,  the  code  corresponding  to  his  specialty  is 
used  for  indexing.   This  code  is  used  to  search  for  the 
subdepartment  containing  this  specialty.   When  the 
appropriate  subdepartment  is  located,  its  code  is  used  to 
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determine  the  department  in  which  this  subdepar tment 

belongs.   Finally,  when  the  appropriate  department  is 

located,  its  name  is  inserted  to  the  "DEPLST"  file  along 

with  the  other  information  of  the  crew  member. 

When  the  desired  lists  have  to  be  presented  on  the 

user's  screen  or  printed,  the  distinction  of  the  personnel 

in  each  department  is  made  by  the  use  of  the  department's 

name.   The  lists  are  sorted  on  ranks. 

4 .   List  of  Personnel  Allocated  to  a  Specific 
Subdepartment 

In  this  case  the  program  "REPORTER"  calls  the 
program  "LIST  4".   This  program  controls  the  sequence  of 
actions  for  the  production  of  the  appropriate  lists.   The 
procedure  of  production  of  the  desired  lists  is  almost  the 
same  as  described  above. 

The  names  of  the  departments  are  presented  to  the 
user  in  the  option  frame.   After  selecting  a  department,  the 
subdepartments  belonging  to  this  department  are  presented  to 
him.   From  these  subdepartments  he  selects  one  for  which  he 
wants  a  1 ist ing  . 

Some  of  the  subdepartments,  as  for  example  the 
"Administration"  subdepartment,  must  be  assembled  manually. 
In  this  case,  the  system  informs  the  user.   Multiple 
execution  of  the  program  "LIST  4"  is  again  one  of  the  user's 
options . 
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5 .  List  of  the  Personnel  Allocated  into  Two  Shifts 
When  the  user  selects  the  option  of  producing  a  list 

of  crew  members  allocated  into  two  shifts  the  program  "LIST 
5"  is  called  by  the  program  "REPORTER".   This  program  has 
been  constructed  with  the  same  logic  as  the  previously 
described  programs.   However,  a  lot  of  processing  on  files 
and  records  is  not  required  since  the  two  shifts  already 
exist  in  the  files  "SHIFT2_A"  and  "SHIFT2_B".   The  records 
in  these  two  files  need  only  have  the  codes  used  for  ranks 
and  specialties  replaced  with  their  respective  names. 

This  replacement  is  taking  place  under  the  control 
of  the  program  "LIST  5",  and  the  resulting  records  are 
stored  in  the  file  "SHIFTLST"  for  the  construction  of  the 
appropriate  list.   Lists  provided  by  this  program  are  sorted 
on  specialty  and  rank  of  the  personnel. 

6 .  List  of  the  Personnel  Allocated  into  Three  Shifts 
The  program  "REPORTER"  calls  the  program  "LIST  6" 

whenever  the  user  selects  the  option  of  producing  lists  of 
personnel  allocated  into  three  shifts.   And  in  this  case, 
three  files  containing  the  appropriate  shifts  are  used, 
"SHIFT3_A",  "SHIFT3_B",  AMD  "SHIFT3_C"  files. 

Replacement  of  the  codes  used  for  ranks  and 
specialties  with  their  corresponding  names  must  also  be 
performed  on  these  files,  and  the  same  methods  used  in 
program  "LIST  5"  are  employed. 
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7.  List  of  Ship  Organization  During  "Surface"  Alert 
When  the  user  desires  a  listing  of  ship  organization 

during  a  "Surface"  alert,  he  makes  the  appropriate  selec- 
tion; the  program  "REPORTER"  calls  the  program  "LIST  7". 
This  program  uses  the  file  "SALERT"  to  gather  all  the  needed 
information,  and  the  file  "ALERTLST"  to  store  the  new 
records  created  during  its  execution. 

On  this  point  the  user  must  know  that  the  informa- 
tion that  he  will  receive  is  derived  from  the  file  "SALERT", 
which  may  or  may  not  contain  a  complete  assignment  of 
personnel  to  all  alert  positions.   This  is  because  the  user 
who  executed  the  program  "SURFALERT" ,  from  which  the  file 
"SALERT"  is  created,  has  the  option  to  complete  the 
allocation  manually  when  a  mismatch  on  ranks  or  on  specialty 
occurs;  in  which  case  some  of  the  required  positions 
necessary  during  this  alert  remain  unmanned.   If  the  user 
does  not  want  to  complete  manually  the  allocation  process, 
he  has  to  execute  the  program  "SURFALERT"  to  completion. 

8 .  List  of  Ship  Organization  During  "Air"  Alert 

The  same  logic  and  programs  apply  here  as  were  used 
in  the  previous  report  listing.   The  program  "LIST  8"  is 
called  by  the  program  "REPORTER".   The  file  "ALERTLST"  is 
used  again  for  storage  of  the  new  records  created  during  the 
execution  of  the  program  "LIST  8"  and  the  file  "AALERT"  is 
used  to  provide  the  appropriate  information.   In  the  case  of 
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unmanned  positions  the  user  must  execute  the  program 
"AIRALERT"  to  completion  through  submenu  2,  option  3. 

9 .   List  of  Ship  Organization  During  "General"  Alert 

When  the  user  selects  the  option  of  creating  a  list 
of  ship  organization  during  a  "General"  alert,  the  program 
"REPORTER"  calls  the  program  "LIST  9".   This  program  uses 
the  file  "GALERT"  to  correlate  appropriate  information,  and 
the  file  "ALERTLST"  to  store  the  results  of  its  execution. 
If  unmanned  positions  appear  on  the  lists  and  the  user  does 
not  want  to  complete  the  allocation  manually  he  must 
reexecute  the  program  "GENALERT" ,  in  which  the  file  "GALERT" 
is  created,  to  completion  through  submenu  2,  option  1. 
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V.   CONCLUSIONS  AND  RECOMMENDATIONS 

The  purpose  of  this  study  was  to  develop  a  database 
system  model,  suitable  for  implementation  within  a  battle 
ship,  and  able  to  aid  in  the  personnel  management  in  this 
environment . 

The  main  goal  is  to  release  manpower  for  other  purposes, 
by  increasing  effectiveness,  accuracy,  and  speed,  of 
personnel  management.   Another  goal  was  to  provide  solutions 
to  the  job  assignment  problem  in  a  real  time  environment. 

Three  major  factors  influenced  this  study.   The  first 
one  is  the  unclassified  nature  of  it,  which  required  the 
omission  of  details  describing  the  problem.   The  second  was 
the  standar i zation  of  information  describing  the  problem  in 
order  to  more  closely  accommodate  standards  used  by  most 
nations.   Lastly,  the  absence  of  previous  work  on  the  same 
subject  has  inspired  its  completion. 

As  a  result,  the  developed  system  must  be  considered  as 
a  prototype  model,  which  needs  further  modification  and 
extension  in  order  to  be  used  in  a  real  time  environment. 
Although  the  system  must  be  considered  as  a  prototype  in  its 
present  form,  it  is  still  able  to  substitute  some  manually 
provided  and  time  consuming  jobs,  to  produce  a  number  of 
reports,  and  to  provide  real  time  management  decision 
information . 
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dBASE  III  is  used  as  a  database  management  system, 
because  both  the  relational  data  model  on  which  it  is  based 
and  its  high  level  programming  language  is  very  suitable  for 
implementing  such  a  system. 

The  system  is  "menu  driven".   Therefore,  it  is  not  only 
easy  to  use  but  also  easy  to  modify  since  both  the  user  and 
the  programmer  are  directed  to  the  desired  point  through  the 
sequence  of  menus  and  submenus. 

It  is  already  mentioned  that  this  system  is  a  prototype 
model,  but  due  to  its  ability  of  easy  modification  it  could 
be  the  basis  for  future  work  which  could  cover  all  the  needs 
for  personnel  management  in  a  battle  ship. 
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APPENDIX  A 


A.   MAIN  PROGRAM  AND  MAINMENU 

*-**  PROGRAM  MASTERPR 

*    This  is  the  main  program  of  the  database  system 

CLEAR 

SET  TALK  OFF 
SET  DELIMITER  OFF 
SET  HEADING  OFF 
SET  EXACT  ON 
PUBLIC  psw 

STORE  '        '  TO  psw 
@  11,33  SAY  'ENTER  PASSWORD  ==> ' 
SET  CONSOLE  OFF 
ACCEPT  TO  psw 
SET  CONSOLE  ON 
USE  users 

LOCATE  FOR  password  =  UPPER (psw) 
IF  EOFO 

SET  COLOR  TO  W* 

&     11,28  SAY  ■     UNAUTHORIZED  USER         » 

DO  delay 

SET  COLOR  TO  W 

QUIT 
END  IF 

CLOSE  DATABASES 
STORE  . T.  TO  continue 

DO  WHILE  continue 
DO  rnainmenu 
DO  CASE 

CASE  choice  =  i3 
CLEAR 
QUIT 
CASE  choice  =  1 

DO  updatedb 
CASE  choice  =  £ 

DO  allocate 
CASE  choice  =  3 

DO  reporter 
CASE  choice  =  4 
CLEAR 
RETURN 
ENDCASE 
ENDDO 


SET  TALK  ON 
SET  DELIMITER  ON 
SET  EXACT  OFF 
SET  HEADING  ON 
CLEAR  ALL 
RETURN 
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**-*  PROGRAM  MAINMENU 


CLEAR 

PUBLIC  choice 

STORE  0  TO  choice 


IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 

MAIN  MENU 
MMMMMMMMM 

EXIT  TO  OPERATING  SYSTEM  0 

UPDATE  SUPPORTING  FILES  1 

CREW  ALLOCATION £ 

LISTS  AND  REPORTS 4 

EXIT  TO  dBASE  III  5 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 
SET  COLOR  TO  W+ 

£  20,30  SAY  'ENTER  YOUR  CHOICE  ==> ■  , 
GET  choice  PICTURE  '9'  RANGE  0,5 
READ 

SET  COLOR  TO  W 
RETURN 


I? 

7, 

18 

SAY  ■ 

& 

a, 

18 

SAY  ' 

& 

9, 

18 

SAY  ■ 

£ 

10, 

18 

SAY  ' 

1? 

ii, 

18 

SAY  » 

■«■ 

12, 

18 

SAY  ■ 

@ 

13, 

18 

SAY  ' 

& 

14, 

18 

SAY  » 

e 

15, 

18 

SAY  ' 

i? 

16, 

18 

SAY  ' 

@ 

17, 

18 

SAY  ■ 

*-*-*  PROGRAM  DELAY 


STORE  0  TO 

k 

DO  WHILE  k 

<  40 

STORE  k 

+  1 

ENDDO 

RETURN 

TO  k 
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B.   PROGRAMS  IMPLEMENTING  THE  UPDATE  OPERATIONS 


***  PROGRAM  UPDATEDB 

CLEAR 

STORE  '  '  TO  updtcont 
PUBLIC  updtcode 

DO  WHILE  UPPER (updtcont)  #  ' N' 
DO  submenul 
DO  CASE 

CASE  updtcode  =  3 

STORE  '  N'  TO  updtcont 
CASE  updtcode  =  1 

DO  inscrew 
CASE  updtcode  =  2 

DO  mod i crew 
CASE  updtcode  =  3 

DO  mod  leave 
CASE  updtcode  =  4 
DO  delecrew 
-  ENDCASE 
ENDDO 
RETURN 
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-*-**   PROGRAM  SUBMENUl 


CLEAR 

PUBLIC  updtcode 

STORE  0  TO  updtcode 


@ 

7, 

18 

SAY  ' 

1? 

a. 

18 

SAY  ' 

© 

9, 

18 

SAY  ' 

© 

10, 

18 

SAY  ' 

@ 

11, 

18 

SAY  • 

1? 

12, 

18 

SAY  • 

© 

13, 

18 

SAY  ■ 

© 

14, 

18 

SAY  ' 

I? 

15, 

18 

SAY  • 

© 

16, 

18 

SAY  ' 

@ 

17, 

18 

SAY  • 

IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM,  ' 

SUBMENU  1 
MMMMMMMMM 


EXIT  TO  MAIN  MENU 13 

INSERT  RECORDS  INTO  CREWMEMB  1 

MODIFY  RECORDS  FROM  CREWMEMB 
MODIFY  RECORDS  FROM  REQLEAVE 
DELETE  RECORDS  FROM  CREWMEMB 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 
SET  COLOR  TO  W+ 

@  19,29  SAY  'ENTER  YOUR  SELECTION  ==>  '  , 
GET  updtcode  PICTURE  '9'  RANGE  <D,  4 
READ 

SET  COLOR  TO  W 
RETURN 
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***   PROGRAM  INSCREW 

*  This  program  inserts  new  records  into  CREWMEMB  file. 

*  All  other  files  affected  by  the  newly  inserted  record 

*  Are    updated 

CLEAR 

STORE  ■ Y'  TO  ansr 

STORE  . F.  TO  done 

USE  req leave 

INDEX  ON  SERNO  TO  req leave 

USE  crewmemb 

INDEX  ON  SERNO  TO  crewmemb 

*  open  he  required  files 
SELECT  1 

USE  users 

SELECT  £ 

USE  spy 

SELECT  3 

USE  req leave  INDEX  req leave 

SELECT  4 

USE  crewmemb  INDEX  crewmemb 

DO  WHILE  UPPER (ansr)  =  '  Y' 
CLEAR 
DO  screen 1 
SET  COLOR  TO  W+ 

i?   3,  14  SAY  ■  INSERT  NEW  RECORD' 
@   4,  14  SAY  •  ================» 

SET  COLOR  TO  W 


STORE  ' 

'       '  TO  sno 

STORE 

'                     '  TO  nrn 

STORE  " 

'      '  TO  mk 

STORE 

'      '  TO  spc 

STORE  " 

'  TO  idate, odate, reql, req£ 

STORE 

'                       '  TO  addr 

STORE  ' 

'          '  TO  phn 

STORE    0    TO    durl,     dur£,  rrnlv 


@  £0,7  SAY  'ENTER  SERIAL  NUMBER  ==> '  GET  sno  , 

PICTURE  ' 9S999' 

READ 

5  £0,  7  SAY  '  ' 

FIND  &sno 

IF  EOFO 

STORE  ■  '  TO  arts 

@  £0,7  SAY  'DO  YOU  NEED  CODES?  (Y/N)  ==> '  GET  an 

READ 

@  £0,  7  SAY  '  ' 


IF  UPPER (ans)  =  '  Y' 

DO  codescr 
END  IF 


g 

£0, 7  SAY 

i 

I? 

5, 5  SAY 

■  NAME          : 

:'  GET 

ran 

i? 

E, 5  SAY 

' RANK  CODE    : 

:'  GET 

rnk 

@ 

7,5  SAY 

■  SPEC.  CODE 

:'  GET 

spc 

l? 

8, 5  SAY 

■  ENROL.  DATE  : 

!'  GET 

idate  PICTURE 

» 99/99/99' 

i? 

9,5  SAY 

' ADDRESS       : 

:'  GET 

addr 

& 

10,5  SAY 

•  PHONE         : 

s"  GET 

phn 

READ 

APPEND  BLANK 

REPLACE  serno  WITH  sno,  name  WITH  ran,  rank  WITH  mk, 
spec  WITH  spc,  indate  WITH  CTOD ( idate) , , 
address  WITH  addr,  phone  WITH  phn 


STORE  . T.  TO  done 

SELECT  3 

SET  COLOR  TO  W+ 

l?  12,13  SAY  'UPDATE  REQLEAVE  FILE' 

SET  COLOR  TO  W 


@  14,5  SAY  'REMAINING  LEAVE 

£  15,5  SAY  '1st  LEAVE  REQUEST 

@  16,5  SAY  '1st  LEAVE  DURATION 

@  17,5  SAY  '2nd  LEAVE  REQUEST  ; 


@  18,  5 
READ 


SAY  'End  LEAVE  DURATION:' 


GET  rmlv  PICTURE  '99' 
GET  req 1  , 
PICTURE  '99/99/99' 
GET  durl  PICTURE  '99' 
GET  req£  , 
PICTURE  '99/99/99' 
GET  dure:  PICTURE  '99' 


APPEND  BLANK 

REPLACE  serno  WITH  sno,  rem leave  WITH  rmlv,  , 

requestl  WITH  CTOD(reql),  reqldur  WITH  durl,, 
requestE  WITH  CTOD(reqE),  reqEdur  WITH  dur£ 

ELSE 

<?  £0,7  SAY  'RECORD  ALREADY  EXISTS' 

DO  delay 

@  £0,  7  SAY  '  ' 

END  IF 

t?  £0,7  SAY  'MORE  INSERTIONS?  (Y/N)  ==>  '  GET  ansr 
READ 

SELECT  4 
ENDDO 
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*  update  SPY  file 
IF  done 

SELECT  1 

GO  TOP 

LOCATE  FOR  password  =  psw 

SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE () 

REPLACE  time  WITH  TIMEO 

REPLACE  usernanie  WITH  A— > user name 

REPLACE  jobdescr  WITH  ■ INSERTION' 

REPLACE  progname  WITH  » INSCREW' 
END  IF 

CLOSE  DATABASES 

DELETE  FILE  reqleave.ndx 

DELETE  FILE  crewmernb.  ndx 

RETURN 
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***  PROGRAM  SCREEN 1 


CLEAR 
@   P 


2,4 
3,4 
4,4 


© 
@ 
@ 
@ 
@ 

@  1(3,  4 
@  11,4 
12,4 


6,4 
7,4 

8,4 
9,4 


13,  4 
@  14,4 
@  15,4 
@  16,4 
@  17,4 
i?  18,4 
£  19,4 
©  20,  4 
I?  21  ,.4 
RETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


IMMMMMMMMMMMMMMMMMMMMMMMMMMMNMMMMMMM. 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 
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***    PROGRAM    CODESCR 


1? 

2,  45 

SAY  ' 

IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 

1? 

3,  45 

SAY  ' 
SAY  ' 
SAY  1 

:  RANK 

;  CODES 

SPECIALIZATION  : 

5,45 

:FF10 

= 

CDR 

D001   = 

DECK     : 

@ 

6,  45 

SAY  ' 

:FF£0 

= 

LT  CDR 

D00£  = 

WPN  USER: 

e 

7,45 

SAY  ' 

:FF30 

= 

LT 

D003  = 

WPN  CTRL: 

e 

8,  45 

SAY  ' 

:FF40 

= 

LT  JG 

D004  = 

COMMUNIC: 

@ 

9,  45 

SAY  ' 

:FF50 

= 

ENSIGN 

D005  = 

NAVIGAT-  : 

i? 

10,  45 

SAY  ' 

:PF10 

= 

M  CH  PO 

D006  = 

RDR  USER: 

£ 

11,45 

SAY  ' 

1 :PF£0 

= 

S  CH  PO 

D007  = 

SANITARY: 

1? 

12,  45 

SAY  ' 

:PF30 

= 

CH  PO 

E001   = 

ENGINEER: 

e 

13,  45 

SAY  ' 

1 :PF40 

= 

PO  1  CL 

E00£  >  = 

ELECTRIC: 

@ 

14,  45 

SAY  ' 

■ :PF50 

= 

PO  £  CL 

E003  = 

ELECTRON: 

@ 

15,  45 

SAY 

• :PF60 

= 

PO  3  CL 

@ 

16,  45 

SAY 

' :SM10 

= 

SEAMAN 

e 

17,45 

SAY 

»  : 

@ 

ia,  45 

SAY 

'  : 

e 

19,45 

SAY 

'  : 

ii 

£0,45 

SAY 

'  : 

£ 

£1,45 

SAY 

'  HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  <' 

RETURN 
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**-*  PROGRAM  MOD  I  CREW 

*  This  program  modifies  records  into  CREWMEMB  file. 

CLEAR 

STORE  '  Y'  TO  ansr 

STORE  . F.  TO  done 

USE  cr ewmemb 

INDEX  ON  SERNO  TO  crewmemb 

SELECT  1 

USE  users 

SELECT  £ 

USE  spy 

SELECT  3 

USE  crewmemb  INDEX  crewmemb 

DO  WHILE  UPPER (ansr)  =  ' Y' 

STORE  »       ■  TO  sno 

DO  screen 1 

SET  COLOR  TO  W+ 

<§   3,6  SAY  'MODIFY  RECORDS  (CREWMEMB  FILE)' 

@   4, 6  SAY  ' ==============================' 

SET  COLOR  TO  W 

£.20,7  SAY  'ENTER  SERIAL  NUMBER  ==> '  GET  sno, 

PICTURE  '99999' 

READ 

l?  £0,  7  SAY  '  ' 

FIND  &sno 

IF  .NOT.  EOFO 

*  initialize  rnernvars 
STORE 
STORE 
STORE 
STORE 
STORE  '  '  TO  phn 

*  display  choices 
STORE  0  TO  response 

FIELDS  TO  BE  MODIFIED' 

NAME 1 ' 


» 

? 

TO  nm 

f 

1 

TO  rnk 

1 

'  TO  odate 

1 

'  TO  addr 

& 

5,  11 

SAY  ' 

& 

6,  11 

SAY  ' 

& 

7,  11 

SAY  ' 

i? 

a,  ii 

SAY  ' 

© 

9,  11 

SAY  ' 

© 

10,  11 

SAY  ' 

@ 

11,11 

SAY  ' 

© 

12,  11 

SAY  ' 

RANK 


-•i 


DISENROL.  DATE  .  .  3' 

ADDRESS 4' 

PHONE 5' 

PHONE  +  ADDRESS  .  6' 

@  £0,7  SAY  'ENTER  FIELD  NUMBER  ==> '  GET  response, 
PICTURE  '9'  RANGE  1,6 
READ 


* 

clear  screen 

& 

5,8 

SAY  ■ 

e 

6,8 

SAY  » 

@ 

7,8 

SAY  » 

@ 

8,8 

SAY  ■ 

@ 

9,8 

SAY  • 

e 

10,8 

SAY  » 

e 

11,8 

SAY  " 

@ 

12,8 

SAY  ■ 

@ 

20,7 

SAY  ■ 

DO  CASE 

CASE  respon- 

1  GET  nm 


nm 


rnk 


=  1 

@  5, 5  SAY  'NAME 

READ 

@  5,  5  SAY  » 

REPLACE  name  WITH 
CASE  response  =  2 

STORE  «  »  TO  ans 

@  23, 7  SAY  • DO  YOU  NEED  CODES? 

GET  ans 

READ 

@  20,7  SAY  ' 

IF  UPPER (ans)  =  « Y' 
DO  rankscr 

END  IF 

@   6,5  SAY  ■ RANK  CODE     : '  GET 

READ 

&       6, 5  SAY  » 

REPLACE  rank  WITH  rnk 
CASE  response  =  3 

@   3,5  SAY  'DISENRL. 

PICTURE  '99/99/39' 

READ 

i?   9,  5  SAY  ' 

REPLACE  outdate  WITH 
CASE  response  =  4 

@  10,5  SAY  'ADDRESS 

READ 

@  10,5  SAY  ' 

REPLACE  address  WITH  addr 
CASE  response  =  5 

&    11,5  SAY  'PHONE  :'  GET  phn 

READ 

@  11,5  SAY  ' 

REPLACE  phone  WITH  phn 
CASE  response  =  6 

i?  10,5  SAY  'ADDRESS        :'  GET  addr 

@  11,5  SAY  'PHONE  :'  GET  phn 

READ 

@  10,5  SAY  ' 

@  11,5  SAY  ' 


(Y/N)  ==> ' 


DATE:'  GET  odate, 

CTOD(odate) 

:'  GET  addr 
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REPLACE  address  WITH  addr 
REPLACE  phone  WITH  phn 

ENDCASE 

STORE  . T.  TO  done 


* 

Display  modified  record 

£ 

5, 5  SAY 

' NAME           : 

: '  GET  name 

@ 

6, 5  SAY 

' RANK  CODE     : 

: '  GET  rank 

£ 

7,5  SAY 

'SPECIALTY      : 

:  '  GET  spec 

£ 

a, 5  SAY 

' ENROL.  DATE   : 

:'  GET  indate 

@ 

9, 5  SAY 

'DISENRL  DATE  : 

:'  GET  outdate 

e 

10,5  SAY 

' ADDRESS        : 

:'  GET  address 

I? 

11,5  SAY 

' PHONE          : 

: '  GET  phone 

ELSE 

@ 

213,  7  SAY 

'       RECORD  DOES  NOT  EXIST' 

DO 

delay 

l? 

£0, 7  SAY 

i 

END  IF 

CLEAR 

GETS 

£  £0, 

7  SAY  'MORE  MODIFICATIONS?  (Y/N)  ==> ' 

READ 

CLEAR 

ENDDQ 

GET  ansr 


*  update  SPY  file 
IF  done 

SELECT  1 

GO  TOP 

LOCATE  FOR  password  =  psw 

SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A-> username 

REPLACE  jobdeser  WITH  'MODIFICATION' 

REPLACE  progname  WITH  ' MODICREW' 
END  IF 

CLOSE  DATABASES 

DELETE  FILE  crewmemb. ndx 

RETURN 
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***  PROGRAM  RANKSCR 


^ 


£,43 

3,  48 

4,  43 
■^  5,  48 
©  6,43 
15  7,  48 
©  8,  48 
@  9,48 
i?  10,48 
£  1 1 , 48 
@  12,48 
if"  13,43 
£  14,48 
@  15,48 
©  16,48 
@  17, 48  , 
£  18,43  3 
&    19 


,43 
48 


&    £1,48 
RETURN 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


I MMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 
RANK  CODES 


CODE  DESCRIPTION 

FFIO  COMMANDER 

FF£0  LT  COMMANDER 

FF30  LIEUTENANT 

FF40  LIEUTENANT  JG 

FF50  ENSIGN 

PF10  MASTER  CHIEF  PO 

PF£0  SENIOR  CHIEF  PO 

PF30  CHIEF  PO 

PF40  PO  1st  CLASS 

PF50  PO  £r.d  CLASS 

PF60  PO  3rd  CLASS 

SM10  SEAMAN 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  < 
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***  PROGRAM  MODLEAVE 

*  This  program  modifies  records  into  REQLEAVE  file. 


ansr 
done 


CLEAR 

STORE  ' Y*  TO 

STORE  . F.  TO 

USE  req leave 

INDEX  ON  SERNO  TO  req leave 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  req leave  INDEX  req leave 

DO  WHILE  UPPER (ansr)  =  ' Y' 

STORE  »       '  TO  sno 

DO  screen 1 

SET  COLOR  TO  W+ 

&       3,8  SAY  'MODIFY  RECORDS 

i?   4,  8  SAY  »  ======================== 

SET  COLOR  TO  W 

@..£0,  7  SAY  'ENTER  SERIAL  NUMBER  ==>  ' 

PICTURE  '39939' 

READ 

&    £0, 7  SAY  ' 

FIND  &sno 

IF  .NOT-  EOFO 

*  initial ize 
STORE  ' 
STORE  i3  TO  durl,  dur£ 

*  display  choices 
STORE  0  TO  response 


(REQLEAVE  FILE) 


GET  sno, 


memvars 

'  TO  reql, 


reqc! 


5,  11 

6,  11 

7,  11 

a,  ii 

9,  11 

1(3,  11 
11,11 

12,  11 
£0,  7 

PICTURE 

READ 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
SAY 
'  9' 


FIELDS  TO  BE 


MODIFIED' 

, 


REQUEST  1  1' 

REQ1DUR £' 

REQUEST2 3' 

REQ2DUR 4' 

REQUEST1  +  DURATION  5' 
REQUESTS  +  DURATION  6' 
ENTER  FIELD  NUMBER  ==> ' 
RANGE  1,6 


GET  response, 
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*  clear  screen 


& 

5,  a 

SAY    ' 

If1 

SAY    • 

£ 

7,3 

SAY    ' 

(§■ 

a,  a 

SAY    ' 

@ 

g,  a 

SAY    ■ 

1? 

is,  a 

SAY    ■ 

I* 

n, a 

SAY    ■ 

© 

is,  a 

SAY    » 

e 

213,7 

SAY    » 

DO    CASE 

CASE    resp 

GET  reql 


se  =  1 

i?  5,  5  SAY  '  REQUEST  1 

PICTURE  • 99/99/99' 

READ 

i?  5,  5  SAY  ■ 

REPLACE  request  1  WITH  CTOD(reql) 
CASE  response  =  2 

@   &, 5  SAY  'REQ1DUR        :'  BET  durl 

PICTURE  '99' 

READ 

£   6, 5  SAY  ' 

REPLACE  reqldur  WITH  durl 
CASE  response  =  3 

&       9, 5  SAY  ' REQUEST2       : '  GET  req2 

PICTURE  '93/99/39' 

READ 

@   9,5  SAY  ' 

REPLACE  requests  WITH  CT0D(req2> 
CASE  response  =  4 

@  10,5  SAY  ' REQ2DUR        :'  GET  dur2 

PICTURE  '99' 

READ 

(i  10,5  SAY  ' 

REPLACE  req2dur  WITH  dur2 
CASE  response  =  5 

©  11,5  SAY  ' REQUEST1 

PICTURE  '99/99/99/' 

@  12,5  SAY  'DURATI0N1 

PICTURE  '99' 

READ 

@  11,5  SAY  ' 

&    12,5  SAY  ' 

REPLACE  request  1  WITH  CTOD(reql) 

REPLACE  reqldur  WITH  durl 
CASE  response  =  6 

@  13,5  SAY  ' REQUEST2       :'  GET  req2  , 

PICTURE  '99/99/99' 

&    14,5  SAY  'DURATI0N2     :'  GET  dur2  , 

PICTURE  '99' 

READ 


'  GET  reql  , 
'  GET  durl  , 
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@  13,5  SAY  • 

&    14, 5  SAY  ' 

REPLACE  requests  WITH  CTOD<req£) 

REPLACE  req2dur  WITH  dur£ 


ENDCASE 

STORE  . T.  TO  done 


Display  modified  record 

5,9  SAY  'SERIAL  NUMBER 

6,9  SAY  'REMAINING  LEAVE 

7,9  SAY  ' REQUEST 1 

8,9  SAY  ' REQUEST 1  DURATION 

9, 9  SAY  ' REQUESTS 

10,9  SAY  ' REQUESTE  DURATION 


-* 
@ 

& 

l? 

I? 
ELSE 

&    20,  7  SAY  ' 

DO  delay 

@  £0,  7  SAY  ' 
END  IF 

CLEAR  GETS 

I?  £0,7  SAY  'MORE  MODIFICATIONS?  (Y/N)  ==>  ' 
READ 
CLEAR 
ENDDO 


GET  serrio 

GET  rem leave 

GET  request  1 

GET  reqldur 

GET  requests 

GET  req£dur 


RECORD  DOES  NOT  EXIST' 


GET 


ansr 


■*  update  SPY  file 
IF  done 

SELECT  1 

GO  TOP 

LOCATE  FOR  password  =  psw 

SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A— > username 

REPLACE  jobdescr  WITH  'MODIFICATION' 

REPLACE  progname  WITH  '  REQLEAVE' 
END  IF 

CLOSE  DATABASES 

DELETE  FILE  req leave. ndx 

RETURN 
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***   PROGRAM  DELECREW 

*  This  program  deletes  records  from  CREWMEMB  file, 

*  as  well  as  from  REQLEAVE  file. 

CLEAR 

STORE  ' Y'  TO  ansr 

STORE  . F.  TO  done 

USE  crewmernb 

INDEX  ON  SERNO  TO  crewmernb 

USE  req leave 

INDEX  ON  SERNO  TO  req leave 

SELECT  1 

USE  users 

SELECT  £ 

USE  spy 

SELECT  3 

USE  req leave  INDEX  req leave 

SELECT  4 

USE  statist 

SELECT  5 

USE  crewmernb  INDEX  crewmernb 

DO  WHILE  UPPER (ansr)  =  '  V 
CLEAR 
DO  screen 1 
SET  COLOR  TO  W+ 

@   3,  9  SAY  '  DELETE  RECORD  FROM  CREWMEMB' 
@   4,  9  SAY  >  ===========================' 

SET  COLOR  TO  W 
STORE  ■       '  TO  sno 


3  £0,7  SAY  'ENTER  SERIAL  NUMBER  ==> '  GET 

PICTURE  '99999' 

READ 

@  SO,  7  SAY  ' 

FIND  &sno 

IF  .NOT.  EOFO 


;no 


£   5, 5  SAY 

' NAME          : 

:'  GET 

name 

@   6, 5  SAY 

' RANK  CODE    : 

:'  GET 

rank 

@   7, 5  SAY 

' SPEC.  CODE   : 

'  GET 

spec 

@   8, 5  SAY 

' ENROL.  DATE  : 

:'  GET 

i  ndate 

@   9, 5  SAY 

' DISENRL.  DATE: 

:'  GET 

outdat e 

@   9,5  SAY 

' ADDRESS 

:'  GET 

address 

£  10,5  SAY 

*  PHONE         : 

:'  GET 

phone 

STORE  '  '  TO  ans 

CLEAR  GETS 

@  £0, 7  SAY 

'DELETE?  (Y/N) 

==>  ' 

GET  ans 

READ 
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IF  UPPER (ans)  =  '  Y' 
SELECT  4 
APPEND  BLANK 
REPLACE  serrto 
REPLACE  name 
REPLACE  rank 
REPLACE  spec 
REPLACE  indate 
REPLACE  outdate  WITH  DATE ( ) 
SELECT  5 
DELETE 
STORE  .  T.  TO  done 


WITH  E->  serno 

WITH  E->narne 

WITH  E->  rank 

WITH  E->  spec 

WITH  E->  indate 


SELECT  3 

FIND  &sno 

IF  .NOT.  EOFO 

SET  COLOR  TO  W+ 

@  1£,  9  SAY  'DELETE  RECORD  FROM 

REQLEAVE' 

SET  COLOR  TO  W 

@  14,5  SAY  'REMAINING 

LEAVE    : 

:'  GET  rem leave 

&    15,5  SAY  '1st  LEAVE 

REQUEST 

:'  GET  request  1 

i?  16,5  SAY  '1st  LEAVE 

DURATION: 

:'  GET  reqldur 

1?  17,5  SAY  'End  LEAVE 

REQUEST 

:'  GET  requescE 

@  18, 5  SAY  'End  LEAVE 

DURATION: 

:'  GET  reqEdur 

CLEAR  GETS 

END  IF 

END  IF 

ELSE 

@  23, 7  SAY  ' RECORD  DOES  NOT 

EXIST' 

DO  delay 

&    £0, 7  SAY  ' 

* 

END  IF 

e  £0,7  SAY  'MORE  DELETIONS?  <Y/N)  ==> '  GET  ansr 

READ 

SELECT  5 

ENDDO 

IF  done 

SELECT  5 

PACK 

SELECT  4 

PACK 
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*  update  SPY  file 

SELECT  1 

GO  TOP 

LOCATE  FOR  password  =  psw 

SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE () 

REPLACE  time  WITH  TIMEO 

REPLACE  user name  WITH  A- > user name 

REPLACE  jobdescr  WITH  'DELETION' 

REPLACE  progname  WITH  ' DELECREW' 


END  I 


r 


CLOSE  DATABASES 

DELETE  FILE  crewmemb. ndx 

DELETE  FILE  reqleave.ndx 

RETURN 
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C.   PROGRAMS  SUPPORTING  THE  CREW  ALLOCATION 


***  PROGRAM  ALLOCATE 

*  This  program  allocate  the  ship  crew  into  d.    or  3  shift: 

*  and  performs  the  ship  manning  according  to  alert  type. 

CLEAR 

STORE  '  '  TO  allcont 

PUBLIC  all code 

DO  WHILE  UPPER (allcont)  #  '  N' 

DO  submenus 

DO  CASE 

CASE  all  code  =  i3 


STORE  '  N' 
CASE  allcode  = 

DO  genalert 
CASE  allcode  =  2. 

DO  surfalert 
CASE  allcode  =  3 

DO  airalert 
CASE  allcode  =  4 

DO  shifts 
CASE  allcode  =  5 

DO  shift3 


TO  allcont 

1 


ENDCASE 


ENDDO 
RETURN 
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*-**  PROGRAM  SUBMENUS 


CLEAR 

PUBLIC  allcode 

STORE  0  TO  allcode 


&  7, 14  SAY 

tf  8, 14  SAY 

if"  3,  14  SAY 

&  10, 14  SAY 

©  11,  14  SAY 

3  12,  14  SAY 

@  13,  14  SAY 

&  14, 14  SAY 

©  15,  14  SAY 

@  IS, 14  SAY 

If"  17,  14  SAY 
SET  COLOR  TO 


IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

SUBMENU  2 
MMMMMMMMM 


EXIT  TO  MAIN  MENU 0 

CREW  ALLOCATION  FOR  GENERAL  ALERT  1 

CREW  ALLOCATION  FOR  SURFACE  ALERT  2 

CREW  ALLOCATION  FOR  AIR  ALERT 3 

CREW  ALLOCATION  INTO  2  SHIFTS 4 

CREW  ALLOCATION  INTO  3  SHIFTS 5 

HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM< 
W+ 

@  19,26  SAY  'ENTER  YOUR  SELECTION  ==> '  , 

GET  allcode  PICTURE  » 9'  RANGE  0,5 

READ 

SET  COLOR  TO  W 

RETURN 
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***  PROGRAM  GENALERT 

*  This  program  performs  the  ship  manning  for  general  alert 

CLEAR 

DO  screen£ 

@   9,  £9  SAY  'AUXILIARY  FILE  CREATION' 

COPY  FILE  crewmemb. dbf  TO  trnpcrew..  dbf 

£  11,  £9  SAY  '         TMPCREW' 

COPY  FILE  alert,  dbf  TO  trnpalert.  dbf 

£  1£,  £9  SAY  '         TMPALERT' 


*  operi  required  files 

SELECT  1 

USE  users 

SELECT  £ 

USE  spy 

SELECT  3 

USE  galert 

DELETE  NEXT  100 

PACK 

SELECT  4 

USE  tjnpcrew 

SELECT  5 

USE    trnpalert 

STORE  . F.  TO  finish 

STORE  . T.  TO  done 

£   9, £5  SAY  ' 

£  10, £5  SAY  ' 

©  11, £5  SAY  ' 

SET  COLOR  TO  W* 

@  1£,£5  SAY  ' 

SET  COLOR  TO  W 

DO  WHILE   -NOT. 
STORE  . F.  TO 
SELECT  4 
GO  TOP 
LOCATE  FOR  rank  =  E-> reqrank  .AND. 

.AND.  .NOT.  DELETED () 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-> descr 
STORE  .T.  TO  ok 
ELSE 

STORE  .F.  TO  done 
END  IF 


PROCESSING  IN  PROGRESS' 

EOFO 
ok 


spec  =  E— >  reqspee 


100 


SELECT  5 
IF  ok 

DELETE 
ENDIF 
SKIP 
ENDDQ 


if 


IE, £5  SAY 


* 

IF  . NOT.  done 

STORE  *  '  TO  ansr 
&    19,26  CLEAR 

&  19,26  SAY  'SOME  POSITIONS  REMAIN  UNMANNED' 
@  20, 26  SAY  ' DUE  TO  NOT  EXACT  MATCH  OF  THE' 
&    21,26  SAY  '        RANK  OR  SPECIALTY' 

&    23,23  SAY  'IGNORE  RANK  AND  CONTINUE?  (Y/N)  ==> »  GET  ansr 
READ 

@  19,23  CLEAR 
IF  UPPER (ansr)  =  ' Y' 
SELECT  5 
GO  TOP 

STORE  . T.  TO  done 
SET  COLOR  TO  W* 

&    12,25  SAY  '      PROCESSING  IN  PROGRESS' 
SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOF ( ) 
STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E-> reqspec  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 


REPLACE 

rank 

WITH 

D-> 

rank 

REPLACE 

name 

WITH 

D-> 

name 

REPLACE 

spec 

WITH 

D-> 

spec 

REPLACE 

poscode  WITH 

E— >  poscode 

REPLACE 

descr  WITH  E- 

■>  descr 

STORE  . T.  TO 

ok 

ELSE 

STORE  . F.  TO 

done 

ENDIF 

ENDIF 

SELECT  5 

IF  ok 

DELETE 

ENDIF 

SKIP 

ENDDO 

£ 

12,25  SAY  ' 

» 

10.1 


ELSE 

STORE  . T.  TO  finish 
END  IF 
END  IF 
* 

IF  .NOT.  finish 
IF  .NOT.  done 

STORE  •  '  TO  ansr 
@  19,23  CLEAR 

@  19,23  SAY  'SOME  POSITIONS  STILL  REMAIN  UNMANNED' 
g  20,23  SAY  'DUE  TO  NOT  EXACT  MATCH  OF  THE  FIELD' 
i?  21,23  SAY  •  SPECIALTY' 

&    23,23  SAY  'IGNORE  SPECIALTY  AND  CONTINUE?  (Y/N)  ==> ' 
GET  ar.sr 
READ 

@  19,23  CLEAR 
IF  UPPER (ansr)  =  '  Y' 
STORE  . T.  TO  done 
SET  COLOR  TO  W* 

£  12,25  SAY  '      PROCESSING  IN  PROGRESS' 
SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 
STORE  . F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-) name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-> descr 
STORE  .T.  TO  ok 
ELSE 

STORE  .F.  TO  done 
END  IF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 
@  12,25  SAY  '  ' 
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ELSE 

STORE  . T.  TO  finish 
END  IF 
END  IF 
ENDIF 
* 

SELECT  4 

LOCATE  FOR  . NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  ■  •  TO  ansr 
@  19,23  CLEAR 

I?  13,  £3  SAY  'THERE  IS  STILL  AVAILABLE  PERSONNEL' 
C"  £0,23  SAY  'DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  '  GET  ansr 
READ 

IF  UPPER (ansr)  =  '  Y' 
CLEAR 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 
DO  WHILE  .NOT.  EOFO 

DISPLAY  serno,  name,  rank,  spec  FOR  .NOT.  DELETED <> 
DO  delayl 
CONTINUE 
ENDDO 
ENDIF 
ENDIF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  £ 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 
REPLACE  time  WITH  TIMEO 
REPLACE  username  WITH  A— >  username 
REPLACE  jobdescr  WITH  'ALLOCATION' 
REPLACE  progname  WITH  ' GENALERT' 

CLOSE  DATABASES 

DELETE  FILE  trnpcrew.dbf 

DELETE  FILE  tmpalert.dbf 

RETURN 
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***  PROGRAM  3URFALERT 


*  This  program  performs  the  ship  manning  for  surface  alert 


CLEAR 

DO  screenc! 

@   9,29  SAY  'AUXILIARY  FILE  CREATION' 

COPY  FILE  cr ewrnemb.  dbf  TO  tmpcrew. dbf 

&    11,  £9  SAY  '         TMPCREW 

COPY  FILE  alert. dbf  TO  tmpalert . dbf 

*  delete  the  positions  that  are    not  necessary  to  be  manned 

USE  tmpalert 


DELETE  FOR  UPPER (descr) 

DELETE  FOR  UPPER (descr) 

DELETE  FOR  UPPER (descr) 

DELETE  FOR  UPPER (descr) 

DELETE  FOR  UPPER (descr) 

DELETE  FOR  UPPER (descr) 
PACK 

@  12,29  SAY  »  TMPALERT' 


'GUN  41  CONTROL' 

' GUN  42  CONTROL' 

'A/A  MISS  CONTR' 

'A/A  MISS  TELEPH' 

' A/A  MISSILES  1' 

' A/A  MISSILES  2' 


*  open  required  files 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  salert 

DELETE  NEXT  100 

PACK 

SELECT  4 

USE  tmpcrew 

SELECT  5 

USE  tmpalert 

STORE  .F.  TO  finish 

STORE  . T.  TO  done 

@   9, 25  SAY  ' 

@  10,25  SAY  ' 

&    11,25  SAY  ' 

SET  COLOR  TO  Ul* 

@  12,25  SAY  ' 

SET  COLOR  TO  W 

DO  WHILE   .NOT. 

STORE  .F.  TO 

SELECT  4 

GO  TOP 

LOCATE 


PROCESSING  IN  PROGRESS' 

EOFO 
ok 


FOR  rank  =  E— >  reqrank 
.AND.  .NOT.  DELETED () 


AND.  spec  =  E— >  reqspec 
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IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-> descr 
STORE  .T.  TO  ok 
ELSE 

STORE  . F.  TO  done 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

@  12, £5  SAY  ■  » 

IF  .NOT.  done 

STORE  »  >  TO  ansr 
@_19,  26  CLEAR 

<i  19,  £6  SAY  'SOME  POSITIONS  REMAIN  UNMANNED' 
i?  20,  26  SAY  »  DUE  TO  NOT  EXACT  MATCH  OF  THE' 
@  £1,26  SAY  '        RANK  OR  SPECIALTY' 

@  23,23  SAY  'IGNORE  RANK  AND  CONTINUE?  (Y/N)  ==> '  GET  ansr 
READ 

@  13,23  CLEAR 
IF  UPPER (ansr)  =  '  Y' 
SELECT  5 
GO  TOP 

STORE  . T.  TO  done 
SET  COLOR  TO  W* 

@  12,25  SAY  '      PROCESSING  IN  PROGRESS' 
SET  COLOR  TO  W 
DO  WHILE  .  NOT.  EOFO 
STORE  . F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E->  reqspec  .AND.  .NOT.  DELETED'.) 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 

REPLACE  rank  WITH  D-> rank 
REPLACE  name  WITH  D-> name 
REPLACE  spec  WITH  D-> spec 
REPLACE  poscode  WITH  E-> poscode 
REPLACE  descr  WITH  E-) descr 
STORE  . T.  TO  ok 
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ELSE 

STORE  . F.  TO  done 
ENDIF 
END  IF 
SELECT  5 
IF  ok 

DELETE 
ENDIF 
SKIP 
ENDDO 

@  12,  £5  SAY  ' 
ELSE 

STORE  . T.  TO  finish 
ENDIF 
ENDIF 
* 

IF  .NOT.  finish 
IF  .NOT.  done 
STORE  ■  '  TO 


19,  £3 
19,  £3 
£0,  £3 
£1  £3 

i— O  ,  i — j 


ansr 
CLEAR 

SAY  'SOME  POSITIONS  STILL  REMAIN  UNMANNED- 
SAY  'DUE  TO  NOT  EXACT  MATCH  OF  THE  FIELD' 
SAY  '  SPECIALTY' 

SAY  ' IGNORE  SPECIALTY  AND  CONTINUE?  (Y/N) 


i? 
& 

..  i? 

GET  ansr 

READ 

&    19, £3  CLEAR 
IF  UPPER (ansr)  =  '  Y' 
STORE  . T.  TO  done 
SET  COLOR  TO  W* 
@  1£, £5  SAY  '      PROCESSING 
SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 
STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  .  NOT. 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
STORE  . 


IN  PROGRESS' 


DELETED () 


rank 

WITH  D-) rank 

name 

WITH  D->name 

spec 

WITH  D->  spec 

poso: 

>de  WITH  E— > poscode 

desci- 

-  WITH  E-)descr 

.  TO 

ok 
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ELSE 

STORE  . F.  TO  done 
ENDIF 
ENDIF 
SELECT  5 
IF  ok 

DELETE 
ENDIF 
SKIP 
ENDDO 

i*  IE,  £5  SAY  »  » 

ELSE 

STORE  .T.  TO  finish 
ENDIF 
ENDIF 
ENDIF 
-* 

SELECT  4 

LOCATE  FOR  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 

STORE  ■  '  TO  ansr 
@  IS, £3  CLEAR 

15.19,  £3  SAY  'THERE  IS  STILL  AVAILABLE  PERSONNEL' 
l?  £l3,£3  SAY  'DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==>  »  GET  ansr 
READ 

IF  UPPER(ansr)  =  » Y' 
CLEAR 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 
DO  WHILE  .NOT.  EOFO 

DISPLAY  serno,  name,  rank,  spec  FOR  .NOT.  DELETED ( ) 
DO  delayl 
CONTINUE 
ENDDO 
ENDIF 
ENDIF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  £ 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 
REPLACE  time  WITH  TIMEO 
REPLACE  username  WITH  A-> username 
REPLACE  jobdescr  WITH  'ALLOCATION' 
REPLACE  progname  WITH  ' SURFALERT' 

CLOSE  DATABASES 

DELETE  FILE  tmpcrew. dbf 

DELETE  FILE  trnpalert.dbf 

RETURN 
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***  PROGRAM  AIRALERT 

*  This  program  performs  the  ship  manning  for  air  alert 


CLEAR 

DO  screenE 

£   9,29  SAY  'AUXILIARY  FILE  CREATION' 

COPY  FILE  crewmernb.  dbf  TO  tmpcrew. dbf 

£  11,29  SAY  '         TMPCREW 

COPY  FILE  alert,  dbf  TO  trnpalert .  dbf 

*  delete  the  positions  that  are    not  necessary 

USE  trnpalert 

DELETE  FOR  UPPER (descr) 

FOR  UPPER (descr) 

FOR  UPPER (descr) 

FOR  UPPER (descr) 

FOR  UPPER (descr) 

FOR  UPPER (descr) 


to  be  manned 


DELETE 

DELETE 

DELETE 

DELETE 

DELETE 

PACK 

&    12, 


' TORPEDO 
' TORPEDO 
' SS  MISS 


1' 
pi 


'  SS 
'  SS 


TUBE 
TUBE 
CONTR' 
MISS  TELEPH' 
MISSILES  1' 
MISSILES  2' 


9  SAY  ' 


TMPALERT' 


*  open  required  files 

SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  aalert 

DELETE  NEXT  100 

PACK 

SELECT  4 

USE  tmpcrew 

SELECT  5 

USE  trnpalert 

STORE  . F.  TO  finish 

STORE  . T.  TO  done 

£   9,  25  SAY  ' 

@  US,  25  SAY  ' 

©  11,25  SAY  ' 

SET  COLOR  TO  W* 

£  12,25  SAY  ' 

SET  COLOR  TO  W 

DO  UHILE   .NOT. 

STORE  . F.  TO 

SELECT  4 

GO  TOP 

LOCATE 


PROCESSING  IN  PROGRESS' 

EOFO 
ok 


FOR  rank  =  E— >  reqrank 
.AND.  .NOT.  DELETED () 


AND.  spec  =  E— >  reqspec 
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rank 

WITH 

D-> 

rank 

name 

WITH 

D-> 

name 

spec 

WITH 

D-> 

spec 

poseode  WITH 

E— >  poseode 

descr  WITH  E- 

•>  descr 

.  TO 

ok 

TO  done 


IF  .NOT.  ECFO 
DELETE 
SELECT  3 
APPEND  BLANK 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
STORE  . T. 
ELSE 

STORE  . F. 
END  IF 
SELECT  5 
IF  ok 

DELETE 
END  IF 
SKIP 
ENDDO 

@  12, £5  SAY  ■  • 

IF  .NOT.  done 

STORE  ■  ■  TO  ansr 
£.19,26  CLEAR 

@  19,26  SAY  'SOME  POSITIONS  REMAIN  UNMANNED'  • 
£0, 26  SAY  ' DUE  TO  NOT  EXACT  MATCH   OF  THE' 
21,26  SAY  '        RANK  OR  SPECIALTY' 

23,23  SAY  'IGNORE  RANK  AND  CONTINUE?  (Y/N)  ==>  '  GET  "ansr 
READ 

C"  19,  23  CLEAR 
IF  UPPER (ansr)  =  '  Y' 
SELECT  5 
GO  TOP 

STORE  . T.  TO  done 
SET  COLOR  TO  W* 

C-  12,25  SAY  '      PROCESSING  IN  PROGRESS' 
SET  COLOR  TO  W 
DO  WHILE  .NOT.  EOFO 
STORE  .F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  spec  =  E-> reqspec  .AND.  .NOT.  DELETED ( ) 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 


REPLACE 

rank 

WITH 

D-> 

rank 

REPLACE 

name 

WITH 

D-> 

name 

REPLACE 

spec 

WITH 

D-> 

spec 

REPLACE 

poseode  WITH 

E— >  poseode 

REPLACE 

descr 

'  WITH  E- 

•>  descr 

STORE  . T.  TO 

ok 

10.9 


ELSE 

STORE  . F.  TO  done 
END  IF 
ENDIF 
SELECT  5 
IF  ok 

DELETE 
ENDIF 
SKIP 
ENDDO 

@  12, £5  SAY  '  ' 

ELSE 

STORE  . T.  TO  finish 
ENDIF 
ENDIF 
* 

IF  .NOT.  finish 
IF  .NOT.  done 

STORE  ■  »  TO  ansr 
&    19,23  CLEAR 

@  IS, £3  SAY  'SOME  POSITIONS  STILL  REMAIN  UNMANNED' 
&    £iZi,£3  SPY  'DUE  TO  NOT  EXACT  MATCH  OF  THE   FIELD' 
.  £  £1,23  SAY  '  SPECIALTY' 

i*  £3,  £3  SAY  'IGNORE  SPECIALTY  AND  CONTINUE?  (Y/N)  ==> 
GET  ansr 
READ 

C-  IS,  £3  CLEAR 
IF  UPPER (ansr)  =  ' Y' 
STORE  . T.  TO  done 
SET  COLOR  TO  W* 

£  1£,  £5  SAY  '      PROCESSING  IN  PROGRESS' 
SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  -NOT.  EOF ( ) 
STORE  . F.  TO  ok 
IF  .NOT.  DELETED () 
SELECT  4 
GO  TOP 

LOCATE  FOR  . NOT.  DELETED ( ) 
IF  .NOT.  EOFO 
DELETE 
SELECT  3 
APPEND  BLANK 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
REPLACE 
STORE  .  T. 


rank 

WITH 

D-> 

rank 

name 

WITH 

D-> 

name 

spec 

WITH 

D-> 

spec 

poscode  WITH 

E— >  poscode 

desei- 

-  WITH  E- 

>  descr 

.  TO 

ok 
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ELSE 

STORE  . F.  TO  done 
ENDIF 
ENDIF 
SELECT  5 
IF  ok 

DELETE 
ENDIF 
SKIP 
ENDDO 

@  12,25  SAY  '  ' 

ELSE 

STORE  . T.  TO  finish 
ENDIF 
ENDIF 
ENDIF 
■*■ 

SELECT  4 

LOCATE  FOR  .NOT.  DELETED () 
IF  .NOT.  EOFO 

STORE  ■  "  TO  ansr 
@  19, 23  CLEAR 

£.19,23  SAY  'THERE  IS  STILL  AVAILABLE  PERSONNEL' 
@  213,23  SAY  'DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==> '  GET  *r*Br 
READ 

IF  UPPER  (amr)  =  '  Y' 
CLEAR 
GO  TOP 

LOCATE  FOR  .NOT.  DELETED ( ) 
DO  WHILE  .NOT.  EOFO 

DISPLAY  serno,  name,  rank,  spec  FOR  .NOT.  DELETED-) 
DO  delayl 
CONTINUE 
ENDDO 
ENDIF 
ENDIF 

*  update  SPY  file 
SELECT  1 
GO  TOP 

LOCATE  FOR  password  =  psw 
SELECT  2 
APPEND  BLANK 
REPLACE  date  WITH  DATE ( ) 
REPLACE  time  WITH  TIMEO 
REPLACE  user-name  WITH  A- >  user  name 
REPLACE  jobdescr  WITH  'ALLOCATION' 
REPLACE  prognarne  WITH  'AIRALERT' 

CLOSE  DATABASES 

DELETE  FILE  tmpcrew. dbf 

DELETE  FILE  tmpalert . dbf 

RETURN 
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*-**   PROGRAM  SCREENS 


If1 

8,  £4 

SAY  ' 

if1 

9,  £4 

SAY  » 

fc 

10,  £4 

SAY  ' 

lj? 

11,  £4 

SAY  ' 

If1 

1£,  £4 

SAY  » 

& 

13,  £4 

SAY  ' 

1? 

14,  £4 

SAY  ' 

@ 

15,  £4 

SAY  ' 

@ 

16,  £4 

SAY  » 

© 

17,  £4 

SAY  ' 

RETURN 

IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM, 

MMMMMMMMMMMMMMMMMMMMMMMMMM 


HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM < 


**-*  PROGRAM  DELAY1 


STORE  0  TO 

d 

DO  UHILE  d 

<   10 

STORE  d 

+  1  TO  d 

ENDDQ 

RETURN 
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***  PROGRAM  SHIFT2 

*  This  program  performs  the  crew  allocation 

*  into  two  shifts 

CLEAR 

DO  screen£ 

@   9,29  SAY  'AUXILIARY  FILE  CREATION' 

COPY  FILE  crewmemb. dbf  TO  tmpshi f t . dbf 

USE  tmpshi ft 

INDEX  ON  SPEC+RANK  TO  tmpshi ft 

i?  11,  2S  SAY  '         TMPSHI  FT' 

*  open  the  required  files 
SELECT  1 

USE  users 
SELECT  2 
USE  spy 
SELECT  3 
USE  shift2a 
DELETE  NEXT  IiZiiZi 
PACK 

SELECT  4 
USE  shift2b 
DELETE  NEXT  100 
PACK 

SELECT  5 

USE  tmpshift  INDEX  tmpshi ft 

@   9,  25  SAY  '  ' 

G  10,25  SAY  '  ' 

@  11,  25  SAY  '  ' 

SET  COLOR  TO  W* 

@  12,25  SAY  '      PROCESSING  IN  PROGRESS' 
STORE  0  TO  countl 
STORE  0  TO  count£ 
STORE  . T.  TO  contin 
SET  COLOR  TO  W 
SELECT  5 
GO  TOP 

DO  WHILE  contin 
IF  EOFO 

STORE  . F.  TO  contin 
ELSE 

SELECT  3 

APPEND  BLANK 

REPLACE  rank  WITH  E-> rank 

REPLACE  name  WITH  E->name 

REPLACE  spec  WITH  E-> spec 

STORE  countl  +  1  TO  countl 

SELECT  5 

SKIP 
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IF  EOFO 

STORE  . F.  TO  cent  in 
ELSE 

SELECT  4 
APPEND  BLANK 

REPLACE  rank  WITH  E-> rank 
REPLACE  name  WITH  E-> name 
REPLACE  spec  WITH  E-> spec 
STORE  counts  +  1  TO  counts 
SELECT  5 
SKIP 
END  IF 
END  IF 
ENDDO 
CLEAR 

STORE  •  '  TO  ans 

&    19, £3  SAY  'THE  TWO  SHIFTS  ARE  READY' 
&    £0,£3  SAY  'DO  YOU  WANT  TO  SEE  THEM?  (Y/N)  ==> ' 
READ 

IF  UPPER (ans)  =  ' Y' 
STORE  . F.  TO  fin 
STORE  13  TO  ch 
DO  WHILE  . NOT.  fin 
DO  screen£ 
@   3,34  SAY  'YOUR  CHOICE  :' 

@  12,30  SAY  'SHIFT  A 1' 

@  13,30  SAY  'SHIFT  B £' 

@  14,30  SAY  'SHIFT  A  AND  B 3'' 

rp    15,3©  SAY  'EXIT 4' 

&    18, 10  CLEAR 

i?  £0,£8  SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  ch 

PICTURE  ' 3'  RANGE  1,4 

READ 

DO  CASE 

CASE  ch  =  1 
CLEAR 
SELECT  3 
GO  TOP 
DO  WHILE  .  NOT.  EOFO 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 
CASE  ch  =  2 
CLEAR 
SELECT  4 
GO  TOP 
DO  WHILE  .  NOT.  EOFO 

DISPLAY  rank,  name,  spec 
DO  delayl 

SKIP 
ENDDO 


GET  ans 
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CASE  ch  =  3 
CLEAR 

SELECT  3 
GO  TOP 
DO  WHILE 


NOT.  EOFO 
DISPLAY  rank,  name, 
DO  delayl 
SKIP 
ENDDO 


spec 


CLEAR 

SELECT  4 

GO  TOP 

DO  WHILE  .NOT.  EOFO 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 
CASE  ch  =  4 

STORE  . T.  TO  fin 
ENDCASE 
CLEAR 
IF  .NOT.  fin 

STORE  '  '  TO  res 
if"  20,  18  SAY  '  DO  YOU 
£  £1, 18  SAY  ' 
READ 

IF  UPPER (res)  #  '  Y' 
STORE  . T.  TO  fin 
END  IF 
END  IF 
ENDDO 
ENDIF 


WANT  TO  SEE  ANY  ONE  OF  THE' 
SHIFTS  AGAIN?  (Y/N)  ==> '  GET 


re; 


*  update  SPY  file 

SELECT  1 

GO  TOP 

LOCATE  FOR  password  =  psw 

SELECT  a 

APPEND  BLANK 

REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  usernarne  WITH  A- >  user  name 

REPLACE  jobdescr  WITH  'ALLOCATION' 

REPLACE  prognarne  WITH  'SHIFTS' 

CLEAR 

CLOSE  DATABASES 

DELETE  FILE  tmpshift.dbf 

DELETE  FILE  tmpshift.ndx 

RETURN 
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***  PROGRAM  SHIFT3 

*  This  program  performs  the  cr&w    allocation 

*  into  three  shifts 

CLEAR 

DO  screens 

©   9,  23  SAY  'AUXILIARY  FILE  CREATION' 

COPY  FILE  crewmemb. dbf  TO  tmpsh i f t . dbf 

USE  tmpshift 

INDEX  ON  SPEC+RANK  TO  tmpshift 

@  11,23  SAY  '         TMPSHIFT' 

*  open  the  required  files 
SELECT  1 

USE  users 

SELECT  2 

USE  spy 

SELECT  3 

USE  shift  3a 

DELETE  NEXT  100 

PACK 

SELECT  4 

USE  shift3b 

DELETE  NEXT  1130 

PACK 

SELECT  5 

USE  shiftSc 

DELETE  NEXT  100 

PACK 

SELECT  6 

USE  tmpshift  INDEX  tmpshift 

£   9, 25  SAY  '  ' 

@  10,25  SAY  '  ' 

@  11,25  SAY  '  ' 

SET  COLOR  TO  W-* 

@  12,25  SAY  '      PROCESSING  IN  PROGRESS' 

STORE  0  TO  count  1 

STORE  0  TO  counts 

STORE  0  TO  counts 

STORE  . T.  TO  contin 

SET  COLOR  TO  W 

SELECT  6 

GO  TOP 
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DO  WHILE  cent  in 
IF  EOFO 

STORE  . F.  TO  cent  in 
ELSE   • 

SELECT  3 

APPEND  BLANK 

REPLACE  rank 

REPLACE  name 

REPLACE  spec 

STORE  count  1 

SELECT  6 

SKIP 


WITH  F->rank 
WITH  F->narne 
WITH  F-) spec 
+    1    TO    count  1 


IF  EOFO 

STORE  . F.  TO  contin 

ELSE 

SELECT  4 
APPEND  BLANK 

REPLACE  rank  WITH  F-> rank 
REPLACE  name  WITH  F-> name 
REPLACE  spec  WITH  F-> spec 
STORE  counts  +  1  TO  countE 
SELECT  £ 
SK I P 

ENDIF 


IF  EOFO 

STORE  .F 

ELSE 

SELECT  5 
APPEND  BLANK 
REPLACE  rank 
REPLACE  name 
REPLACE  spec 
STORE  counts 
SELECT  6 
SK  I P 

ENDIF 


TO  cont  i  n 


WITH  F->rank 
WITH  F->name 
WITH  F->spec 
+  1  TO  counts 


ENDIF 
ENDDO 
CLEAR 

STORE  '  '  TO  ans 

9  IS, S3  SAY  'THE  THREE  SHIFTS  ARE  READY' 
9  £0,23  SAY  'DO  YOU  WANT  TO  SEE  THEM?  (Y/N) 
READ 


SET  sir,^ 
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IF  UPPER (ans)  =  •  Y' 
STORE  . F.  TO  fin 
STORE  0  TO  ch 
DO  WHILE  .NOT.  fir. 
DO  screens 
I?   9,34  SAY  'YOUR  CHOICE  :' 

@  12,30  SAY  'SHIFT  A 1' 

i?  13,30  SAY  'SHIFT  B 2' 

&    14,30  SAY  'SHIFT  C 3' 

l?  15,30  SAY  'EXIT 4' 

@  IS, 10  CLEAR 

@  £0, £8  SAY  'ENTER  YOUR  CHOICE  ==> ' 

PICTURE  '9'  RANGE  1,4 

READ 

DO  CASE 

CASE  ch  =  1 
CLEAR 
SELECT  3 
GO  TOP 
DO  WHILE  .NOT.  EOF () 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP. 
ENDDO 
CASE  ch  =  £ 
CLEAR 
SELECT  4 
GO  TOP 
DO  WHILE  . NOT.  EOF () 

DISPLAY  rank,  name,  spec 
DO  delayl 

SKIP 
ENDDO 
CASE  ch  =  3 
CLEAR 
SELECT  5 
GO  TOP 
DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  rank,  name,  spec 
DO  delayl 
SKIP 
ENDDO 


GET  ch 


CASE 

ENDCASE 
CLEAR 


ch  =  4 
STORE  . 


TO  fin 


113 


IF  .NOT.  fin 

STORE  '  '  TO  res 

@  £0,13  BAY  'DO  YOU  WANT  TO  SEE  ANY  DIME  OF  THE' 
@  SI, 13  SAY  '        SHIFTS  AGAIN?  (Y/N)  ==> '  GET  r 
READ 

IF  UPPER (res)  #  * Y* 
STORE  . T.  TO  fin 
ENDIF 
END  IF 
ENDDO 
ENDIF 

*  update  SPY  file 

SELECT  1 

GO  TCP 

LOCATE  FOR  password  =  psw 

SELECT  £ 

APPEND  BLANK 

REPLACE  date  WITH  DATE ( ) 

REPLACE  time  WITH  TIMEO 

REPLACE  username  WITH  A— >  usemarne 

REPLACE  jobdeser  WITH  'ALLOCATION' 

REPLACE  progname  WITH  'SHIFTS' 

CLEAR 

CLOSE  DATABASES 

DELETE  FILE  tmpshift.dfaf 

DELETE    FILE    trnpsh  i  f  t .  ndx 

RETURN 
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D.   PROQRftMS  PRODUCING  THE  REQUIRED  LISTS 


*-**  PROGRAM   REPORTER 

*  displays  on  the  screen  or  prints 

*  a  number  of  lists  according  to 

*  user's  requests 

CLEAR 

STORE  . F.  TO  stop 
PUBLIC  rcode 
DO  UHILE  .NOT.  stop 
DO  submenu4 
DO  CASE 

CASE  rcode  =  i£ 

RETURN 
CASE  rcode  =  1 

DO  listl 
CASE  rcode  =  £ 

DO  list£ 
CASE  rcode  =  3 
DO  lists 
"  CASE  rcode  =  4 
DO  list 4 
CASE  rcode  =  5 

DO  list5 
CASE  rcode  =  6 

DO  listb 
CASE  rcode  =  7 

DO  list 7 
CASE  rcode  =  8 

DO  lists 
CASE  rcode  =  3 
DO  lists 
ENDCASE 
ENDDO 
RETURN 
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***    PROGRAM    SUBMENU3 


CLEAR 

PUBLIC  » 

^cude 

STORE  iZi 

TO  rcod 

= 

ip       5,  14 

SAY  ' IMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM,  ' 

@   6,  14 

SAY  ' 

SUBMENU  3                         :  ' 

&       7,  14 

SAY  • 

MMMMMMMMM                          :  ' 

&     a,  14 

SAY  ' 

e     g,  14 

SAY  '  : 

EXIT 

TO  MAIN  MENU d   :' 

l?  10,  14 

SAY  » 
SAY  ■  : 

LIST 
LIST 

OF  CREW  IN  SOME  ORDER 1   :  ' 

©  11,14 

OF  REQUESTED  INFO  OF  CREW £   :  ' 

L?  IE,  14 

SAY  '  ! 

LIST 

OF  CREW  OF  A  REQUESTED  DEPARTMENT. .3   : ' 

i?  i3,  14 

SAY  '  : 

LIST 

OF  CREW  OF  A  REQUESTED  SUBDEPARTMENT4   : ' 

if"  14,  14 

SAY  •  : 

LIST 

OF  CREW  ALLOCATED  INTO  2  SHIFTS  ....5   :' 

if»  15,  14 

SAY  '  : 

LIST 

OF  CREW  ALLOCATED  INTO  3  SHIFTS  ....6   :' 

C"  16,  14 

SAY  '  : 

SHIP 

ORGANIZATION  DURING  SURFACE  ALERT  ..7        :' 

l?  17,  14 

SAY  '  : 

SHIP 

ORGANIZATION  DURING  AIR  ALERT 6   :' 

@  18, 14 

SAY  ■  : 

SHIP 

ORGANIZATION  DURING  GENERAL  ALERT  ..9   :? 

£  19,  14 

SAY  ' HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMttMMM <' 

SET  COLOR  TO  W+ 

@  21, 26 

SAY  'ENTER  YOUR  SELECTION  ==>  '  , 

GET  rcode  PICTURE  '9' 

RHNuE  iZi,  9 

READ 

SET  COLOR  TO  W 

RETURN 
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-**-*  PROGRAM  LIST1 

CLEAR 

USE  crewrnemb 

INDEX  ON  rank  TO  crewrnemb 
DO  screen^ 

@   9, £3  SAY  'AUXILIARY  FILE  CREATION' 
STORE  . T.  TO  again 
SELECT  1 
USE  ranks 
SELECT  £ 
USE  specialt 
SELECT  3 
USE  ordcrew 
GO  TOP- 
DELETE  NEXT  100 
PACK 

SELECT  4 

USE  crewrnemb  INDEX  crewrnemb 
GO  TOP 

DO  WHILE  again 
IF  EOFO 


•  STORE  . F.  TO  ag 

ain 

ELSE 

SELECT  1 

GO  TOP 

LOCATE  FOR  rank 

code  : 

=  D->rank 

SELECT  £ 

GO  TOP 

LOCATE  FOR  speccode  = 

=  D— >  spec 

SELECT  3 

APPEND  BLANK 

REPLACE  serno 

WITH 

D— >  serno 

REPLACE  name 

WITH 

D— >  name 

REPLACE  indate 

WITH 

D— > indate 

REPLACE  outdate 

WITH 

D— >  outdate 

REPLACE  rank 

WITH 

A— >  rankname 

REPLACE  spec 

WITH 

B— >  specname 

SELECT  4 

SKIP 

ENDIF 

ENDDO 

STORE  . F.  TO  printer 

STORE  '  '  TO  ans 

CLOSE  DATABASES 

DELETE  FILE  crewrnemb. 

ndx 
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DO  WHILE  UPPER (ans) 
SELECT  3 

LSE  ordcrew 


#  '  N' 


STORE  .1 

r.  TO 

d 

"ORE  .1 

-.  TO 

b 

STORE  .  1 

-.  TO 

c 

STORE  . i 

-.     TO 

d 

DO  screens 

£ 

9,  34 

SAY  ' 

YOUR  CHOICE' 

@ 

12,28 

SAY  » 

LIST(S) 

ON 

SCREEN 

£ 

13,  28 

SAY  ' 

LIST(S) 

ON 

PRINTE 

@ 

18,  23 

CLEAR 

ST 

•ORE  13 

TO  resp 

8 

20,  28 

SAY  ' 

ENTER  YOUR 

CHOICE 

PICTURE 

'9'  RANGE  1, 

~* 

1' 


GET  resp 


READ 

IF  resp  =  2 

STORE  . T.  TO  printer 
@  20, 28  SAY  '  PUT 
DO  delay 
END  IF 

SAY  ■ SORTED 

SAY  ' SORTED 

SAY  ' SORTED 

SAY  ' SORTED 

CLEAR 

TO  resp 

SAY  'ENTER  YOUR  CHOICE 

'9'  RANGE  1,4 


e 

12, 

28 

@ 

13, 

28 

i? 

1A, 

28 

@ 

15, 

28 

& 

18, 

0"2 

STORE 

0 

\3 

20, 

28 

PICTURE 

READ 

YOUR  PRINTER 

ON 

ON  NAMES     : 

:   1' 

ON  RANKS 

ON  INDATE    : 

3' 

ON  OUTDATE   : 

4' 

GET  resp 


IF  resp  =  1 

STORE  . T.  TO  a 
INDEX  ON  name  TO  ordcrew 
ELSE 

IF  resp  =  2 

STORE  . T.  TO  b 
ELSE 

IF  resp  =3 

STORE  . T.  TO  c 
INDEX  ON  indate  TO  ordcrew 
ELSE 

IF  resp  =  4 

STORE  . T.  TO  d 
INDEX  ON  outdate  TO  ordcrew 
END  IF 
END  IF 
END  IF 
END  IF 
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SELECT  3 
IF  printer 

SET  PRINT  ON 
IF  a 

REPORT  FORM  1st  la 
ELSE 

IF  b 

REPORT  FORM  1st  lb 
ELSE 

IF  c 

REPORT  FORM  lstlc 
ELSE 

IF  d 

REPORT  FORM  1st  Id 
END  IF 
END  IF 
END  IF 
ENDIF 

SET  PRINT  OFF 
ELSE 

CLEAR 
GO  TOP 
'  IF  a 

DO  WHILE  . NOT.  EOF ( ) 

DISPLAY  name,  rank, spec 
DO  delayl 
SK I P 
ENDDO 
ELSE 

IF  b 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  rank,  spec,  name 
DO  delayl 
SKIP 
ENDDO 


ELSE 

IF 

c 

DO 

WHILE  .NOT. 

EOFO 

DISPLAY  ind 

ate,  name 

DO  delayl 

SKIP 

ENDDO 

rank,  spec 
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ELSE 

IF  d 

DO  WHILE  .NOT.  EOF  <  ) 

DISPLAY  oat date,  name,  rank,  spec 
DO  delayl 
SK I P 
ENDDO 
END  IF 
END  IF 
END  IF 
END  IF 
END  IF 
CLEAR 

CLOSE  DATABASES 
IF  .NOT.  b 

DELETE  FILE  ordcre'w.  r.dx 
END  IF 

STORE  '  '  TO  ar\*r 

&    £0, £3  SAY  'DO  YOU  WANT  TO  SEE  OR  PRINT  AGAIN' 
&    21,28  SAY  *     ONE  OF  THE  AVAILABLE  LISTS?' 
£  ££,£8  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==> '  GET  ansr 
READ 

IF  UPPER  (ar.sr)  #  '  Y' 
STORE  ' N'  TO  ans 
ENDIF 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 


125 


-***  PROGRAM  LISTS 

CLEAR 

SELECT  1 

USE  ranks 

SELECT  £ 

USE  specialt 

SELECT  3 

USE  infocrew 

DELETE    NEXT     U3iZJ 

PACK 

SELECT    4 

USE  crewmeni  b 

INDEX  ON  name  TO  crewmemb 

GO  TOP 

DO  screenE 

@   9,29  SAY  'AYXILIARY  FILE  CREATION' 

STORE  . T.  TO  again 

DO  WHILE  again 

IF  EOFO 

STORE  . F.  TO  again 

ELSE 


SELECT  1 

GO  TOP 

LOCATE  FOR  rank 

code  = 

=  D->  rank 

SELECT  £ 

GO  TOP 

LOCATE  FOR  speccode  = 

=  D— >  spec 

SELECT  3 

APPEND  BLANK 

REPLACE  name 

WITH 

D— >  name 

REPLACE  rank 

WITH 

A— >  rankname 

REPLACE  spec 

WITH 

B— >  specnarne 

REPLACE  address 

WITH 

D— >  address 

REPLACE  phone 

WITH 

D— >  phone 

SELECT  4 

SK I P 

ENDIF 

ENDDO 

STORE  .F.  TO  printer 

STORE  '  '  TO  ans 

DO  WHILE  UPPER (ans)  # 

'  N' 

STORE  . F.  TO  a 

STORE  .F.  TO  b 

STORE  -F.  TO  c 

STORE  . F.  TO  d 

DO  screens 

@   S,  34  SAY  ♦  YOUR  1 

CHOICE' 

i?  IE,  28  SAY  'LIST(S)  ON 

SCREEN   :   1' 

£  13,28  SAY  'LIST(S)  ON 

PRINTER  :   £' 
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£  13,23  CLEAR 

STORE  0  TO  resp 

i?  20,23  SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  resp  , 

PICTURE  '9'  RANGE  1,2 

READ 

IF  resp  =  2 

STORE  . T.  TO  printer 

©  £0,  £8  SAY  'PUT  YOUR  PRINTER  ON    ' 

DO  delay 


END  IF 

&    12,23  SAY  'NAME  AND  RANK 

@  13,28  SAY  'NAME  AND  PHONE 

@  14,28  SAY  'NAME  AND  ADDRESS 

&     15,28  SAY  'NAME-ADDRESS-PHONE 

@  13,23  CLEAR 

STORE  0  TO  resp 

£  20,28  SAY  'ENTER  YOUR  CHOICE  ==> ' 

PICTURE  ' 9'  RANGE  1,4 

READ 


1' 


GET  resp 


IF  resp  =  1 

STORE  .  T.  TO  a 
ELSE 

IF  resp  =  2 

STORE  . T.  TO  b 
ELSE 

IF  resp  =3 

STORE  . T.  TO  c 
ELSE 

IF  resp  =  4 

STORE  . T.  TO  d 
END  I F 
END  IF 
END  IF 
ENDIF 

SELECT  3 
IF  printer 

SET  PRINT  ON 
IF  a 

REPORT  FORM  lst2a 
ELSE 

IF  b 

REPORT  FORM  lst2b 
ELSE 

IF  c 

REPORT  FORM  lst2c 
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ELSE 

IF  d 

REPORT  FORM  lst£d 
ENDIF 
END  I F 
ENDIF 
ENDIF 

SET  PRINT  OFF 
ELSE 

CLEAR 
GO  TOP 
IF  a 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
ELSE 

IF  b 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  phone 
DO  delayl 
SK I P 
ENDDO 
ELSE  ' 

IF  c 

DO  WHILE  .NOT.  EOF () 

DISPLAY  name,  address 
DO  delayl 
SKIP 
ENDDO 
ELSE 

IF  d 

DO  WHILE  . NOT.  EOF ( ) 

DISPLAY  name,  address,  phone 
DO  delayl 
SK  I P 
ENDDO 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
CLEAR 

STORE  '  »  TO  ansr 

@  £0,28  SAY  'DO  YOU  WANT  TO  SEE  OR  PRINT  AGAIN' 

&    £1,28  SAY  '     ONE  OF  THE  AVAILABLE  LISTS?' 

@  ££,£3  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==>  '  GET  ansr 

READ 
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IF  UPPER(ansr)  #  '  Y' 
STORE  ' N'  TO  ar^ 
ENDIF 
ENDDO 

CLEAR 

CLOSE  DATABASES 

DELETE  FILE  crewmemb. ndx 

RETURN 
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***  PROGRAM  LIST3 

CLEAR 

DO  screens 

@   3, £9  SAY  'AUXILIARY  FILE  CREATION' 
SELECT  1 
USE  ranks 
SELECT  £ 
USE  special t 
SELECT  3 
USE  deplst 
DELETE  NEXT  1  iZiiZJ 
PACK 

SELECT  4 
USE  subdeptn 
SELECT  5 
USE  depart m 
SELECT  6 
USE  crewmen b 

INDEX  ON  rank  TO  crewmemb 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOFO 

STORE  . F.  TO  again 
ELSE 

STORE    '  '     TO    tdpnarne 

SELECT    1 

LOCATE  FOR  rankcode  =  F->  rank 

SELECT  £ 

GO  TOP 

LOCATE  FOR  speccode  =  F-> spec 

SELECT  4 

GO  TOP 

LOCATE  FOR  subdpcode  =  B-> subdpcode 

SELECT  5 

GO  TOP 

LOCATE  FOR  depcode  =  D-> depcode 

IF  EOFO 

STORE  ' DECK'  TO  tdpnarne 

END  IF 

SELECT  3 

APPEND  BLANK 

REPLACE  semo  WITH  F->  serno 

REPLACE  name   WITH  F-> name 

REPLACE  rankname   WITH  A-> rankname 

REPLACE  specname   WITH  B-> specname 

IF  tdpnarne  =  '      ' 

REPLACE  depname  WITH  E-> depname 

ELSE 

REPLACE  depname  WITH  tdpnarne 

END  IF 
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SELECT  6 
SKIP 
ENDIF 
ENDDO 

STORE  . F.  TO  printer 
STORE  ■  '  TO  ar.s 


DO  WHILE  UPPER  (ar.s)  #  '  N' 
SELECT  3 
GO  TOP 

STORE  .F.  TO  a 
STORE  .  F.  .TO  b 
DO  screer.2 

&       S, 34  SAY  'YOUR  CHOICE' 
&    12, £8  SAY  'LIST(S)  ON  SCREEN   : 
e  13,28  SAY  'LIST(S)  ON  PRINTER  : 
@  18,23  CLEAR 
STORE  iZi  TO  resp 

&    20,23  SAY  'ENTER  YOUR  CHOICE  ==> ' 
l'  RANGE  1,2 


1' 


GET  resp  , 
PICTURE  ■« 
READ 
IF  resp  =  2 

STORE  . T.  TO  printer 

@  2(3,23  SAY  'PUT  YOUR  PRINTER  ON    ' 

DO  delay 
ENDIF 

@  12,28  SAY  'DECK  DEPERTMENT.     :   1' 
@  13,28  SAY  'MACHINE  DEPARTMENT  :   2' 
&    18,23  CLEAR 
STORE  0  TO  resp 

@  20,28  SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  resp  , 
PICTURE  ' g'  RANGE  1,2 
READ 


IF  resp  =  1 

STORE  . T.  TO  a 
ELSE 

STORE  . T.  TO -fa 
ENDIF 


IF  printer 

SET  PRINT  ON 
IF  a 

REPORT  FORM  lst3  FOR  depnarne 
ELSE 

REPORT  FORM  1st 3  FOR  depnarne 
ENDIF 
SET  PRINT  OFF 


'  DECK 

' MACHINE 
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CLEAR 
GO  TOP 
IF  a 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY    semo,  name,  rankname,  specnarne,  depnarne    , 
FOR    depnarne    =    ■  DECK  ' 

ENDDO 
ELSE 

DO    WHILE    .NOT.     EOF ( ) 

DISPLAY  semo,  name,  rankname,  specnarne,  depnarne  , 
FOR  depnarne  =  'MACHINE    ' 
ENDDO 
ENDIF 
END  IF 
DO  delay 
CLEAR 

STORE  '  '  TO  ansr 

@  £0,£8  SAY  'DO  YOU  WANT  TO  SEE  OR  PRINT  AGAIN' 
@  £1,£8  SAY  "     ONE  OF  THE  AVAILABLE  LISTS?' 
@  ££,£8  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==> '  GET  ansr 
READ 

IF  UPPER (ansr)  #  '  Y' 
STORE  ' N'  TO  ans 
ENDIF 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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***    PROGRAM    LIST4 


CLEAR 

DO  scraeri£ 

&       9, 29  SAY  ' 

AUXILIARY  FILE 

CREATION' 

SELECT  1 

USE  ranks 

SELECT  £ 

USE  specialt 

SELECT  3 

USE  sdeplst 

DELETE  NEXT  188 

PACK 

SELECT  4 

USE  s 'j bd e pt  n 

SELECT  5 

USE  crewmeni b 

INDEX  ON  rank  TO  crewmemb 

GO  TOP 

STORE  . T.  TO 

again 

DO  WHILE  again 

IF  EQFO 

-  STORE  . 

h.  TO  again 

ELSE 

SELECT 

1 

LOCATE 

FOR  ran kcode  = 

E-> 

rank 

SELECT 

1 

GO  TOP 

LOCATE 

FOR  speccode  = 

E-> 

spec 

SELECT 

4 

GO  TOP 

LOCATE 

FOR  subdpcode  = 

B- 

■>  subdpc-: 

:.d 

SELECT 

wJ 

APPEND 

BLANK 

REPLACE  serno  WITH  E-> 

ser 

TiO 

REPLACE  name   WITH  E-> 

name 

REPLACE  t-3irikr,Afi}e       WITH 

A- 

■>  ranknarne 

REPLACE  specnarne   WITH 

B- 

•>  specnarne 

REPLACE  sdpname  WITH  D 

->  = 

idpname 

SELECT 

5 

SKIP 

END  IF 

ENDDO 

STORE  . F.  TO 

printer 

STORE  »  '  TO 

ans 
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DO  WHILE  UPPER  fans)  #  '  N' 
SELECT  3 
GO  TOP 

STORE  . F.  TO  deck 
STORE  -F.  TO  machine 
DO  screens 

@   9, 34  SAY  'YOUR  CHOICE' 
&    12, £8  SAY  'LIST(S)  ON  SCREEN   :   1' 
©  13, £8  SAY  'LIST(S)  ON  PRINTER  :   £' 
&    18, £3  CLEAR 
STORE  (3  TO  resp 

'ENTER  YOUR  CHOICE  ==> '  GET  resp  , 

RANGE  1,2 


if"  £0,  £8 

SAY 

PICTURE 

'  9' 

READ 

IF  resp 

—  p 

STORE 

.  T 

TO  printer 

&    £0, £8  SAY  'PUT  YOUR  PRINTER  ON    ' 

DO  delay 
END  IF 

£  1£,  £3  SAY  'DECK  DEPERTMENT     :   1' 
&     13, £8  SAY  'MACHINE  DEPARTMENT  :   £' 
8  13, £3  CLEAR 
STORE  0  TO  answr 

@  £0,  £8  SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  answr  , 
PICTURE  '9'  RANGE  1,2 
READ 

IF  answr  =  1 

STORE  . T.  TO  deck 
STORE   iZi   TO  pref 

©  11, £8  SAY  'ADMINISTRATION  1' 

&    1£, £8  SAY  ' COMBAT  INFORM  £' 

@  13,  £8  SAY  'COMMUNICATION 3' 

©  14, £8  SAY  'NAVIGATION  4' 

G  15,  £8  SAY  'WEAPONS 5' 

£  13, £3  CLEAR  ' 

©  £0,£8  SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  pref 

PICTURE  '9'  RANGE  1,5 

READ 

ELSE 

STORE  iZi  TO  pref 

&     11, £8  SAY  'DAMAGE  CONTROL  1' 

5  1£,£8  SAY  'ELECTRIC  INSTAL  £' 

@  13, £8  SAY  'ELECTRON  EQUIPT  3' 

6  14, £8  SAY  'MAIN  ENGINES  4' 

£  15, £8  SAY  ' SPARE  PARTS  5' 

@  18, £3  CLEAR  ' 

&    £0, £8  SAY  'ENTER  YOUR  CHOICE  ==> '  GET  pref 
PICTURE  '9'  RANGE  1,5 
READ 
ENDIF 
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IF  printer 

SET  PRINT  ON 

IF  deck 

DO  CASE 

CASE  pref  =  i 

SET  PRINT  OF 

SET  COLOR  TO 

W* 

&       9, 34  SAY  ' 

**  SORRY 

SET  COLOR  TO 

Ul 

&    11,26  SAY  ' 

@  IE, £6  SAY  ■ 

I  CANNOT 

i?  13,26  SAY  ' 

THIS  S 

£  14,26  SAY  ' 

&  15,26  SAY  ' 

DO  delayE" 

*■*' 


30VIDE  YOU  THIS  LIST1 
SUBDEPARTMENT  MUST  BE 
MANNED  MANUALLY         ' 


CASE  pref  =  2 

REPORT  FORM  lst4  FOR  sdpname  =' COMBAT  INFO 

SET  PRINT  OFF 
CASE  pref  =  3 

REPORT  FORM  lst4  FOR  sdpr.ame^  COMMUNICATIONS' 

SET  PRINT  OFF 
CASE  pref  =  4 

REPORT  FORM  lst4  FOR  sdpname  =  'NAVIGATION   ' 

SET  PRINT  OFF 
CASE  pref  =  5 

REPORT  FORM  lst4  FOR  sdpname  =  'WEAPONS 

SET  PRINT  OFF 


ENDCASE 
ELSE 

DO  CASE 
CASE 


1ST' 

i 


pref  =  1 

SET  PRINT  OFF 

SET  COLOR  TO  W* 

©   9,  34  SAY  '  **  SORRY  **' 

SET  COLOR  TO  W 

£  11,26  SAY  ' 

<i  12,26  SAY  'I  CANNOT  PROVIDE  YOU  THIS 

@  13,26  SAY  '    THIS  SUBDEPARTMENT  MUST 

&     14,26  SAY  '  MANNED  MANUALLY 

DO  delay2 
CASE  pref  =  2 

REPORT  FORM  lst4  FOR  sdpname-' ELECTR.  INSTAL' 

SET  PRINT  OFF 
CASE  pref  =  3 

REPORT  FORM  lst4  FOR  sdpnarae=' ELECTR.  EQUIPM' 

SET  PRINT  OFF 
CASE  pref  =  4 

REPORT  FORM  lst4  FOR  sdpname=! MAIN  ENGINES   ' 

SET  PRINT  OFF 
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CASE  pref  =  5 

SET  PR IN  OFF 

SET  CCLOR  TO  W* 

if   9,34  SAY  '**  SORRY  **' 

SET  COLOR  TO  W 


ENDCASE 
END  IF 
ELSE 

CLEAR 
GO  TOP 
IF  deck 

DO  CASE 
CASE 


CASE 


CASE 


CASE 


CASE 


if 
if 
if 
If 
<f 


1 i , £6  SAY 

12,26  SAY 

13, £6  SAY 

14,26  SAY 

15,26  SAY 


'  I 


CANNOT  PROVIDE  YOU  THIS 
THIS  SUBDEPARTMENT  MUST 
MANNED  MANUALLY 


LIS" 

BE 


DO  delays 


pref  =  1 

DO  5creen£ 

SET  COLOR  TO  W* 

if   9,  34  SAY  '  *•-*  SORRY  **' 

SET  COLOR  TO  W 

i-  1 1 ,  26  SAY  ' 


If 

12,  26 

SAY 

» 

If 

13,  26 

SAY 

i 

If 

14,  26 

SAY 

» 

If 

15,  26 

SAY 

» 

CANNOT  PROVIDE  YOU  THIS  LIST' 

THIS  SUBDEPARTMENT  MUST  BE   ' 

MANNED  MANUALLY         ' 


DO  delay2 

CLEAR 

pref  =  2 

DO  UHILE  .NOT.  EOF ( ) 

DISPLAY  name,  ranknarne,  specname,  sdpriams 
FOR  sdpr.ame  =  'COMBAT  INFO     ' 

ENDDO 

pref  =  3 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, rankname, specname, sdpname 
FOR  sdpr.ar.ie  =  'COMMUNICATIONS  ' 

ENDDO 

pref  =  4 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, rankname, specname, sdpname 
FOR  sdpname  =  'NAVIGATION      ' 

ENDDO 

pref  =  5 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, rankname, specname, sdpname 
FOR  sdpname  =  'WEAPONS  ' 

ENDDO 


ENDCASE 
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ELSE 

DO  CASE 

CASE 

pref  =  1 

DO  screens 

SET  COLOR  TO  W* 

&       9,  34  SAY  '  *-* 

SET  COLOR  TO  W 

@  11, £6  SAY  ' 

3  12,  26  SAY  '  I 

i?  13,26  SAY  ' 

@  14,26  SAY  ' 

©  15,26  SAY  ' 

DO  delay£ 

SORRY  **' 


CANNOT  PROVIDE  YOU  THIS 
THIS  SUBDEPARTMENT  MUST 
MANNED  MANUALLY 


LIS' 

BE 


CASE 


CLEAR 
pref  =  2 
DO  WHILE 


NOT. 


ChSE 


CASE 


CASE 


EOF  ( ) 

DISPLAY  name,  rankname,  specname,  sdpnarne 
FOR  sdpnarne  =  'ELECTRIC  INSTAL' 

ENDDO 

pref  =  3 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY    name,  ranknarne,  specname,  sdpnarne 
FOR    sdpnarne    =    'ELECTRON    EQUIPM' 

ENDDO 

pref  =  4 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name, ranknarne, specname, sdpnarne 
FOR  sdpnarne  =  'MAIN  ENGINES 

ENDDO 

pref  =  5 

DO  screenE 

SET  COLOR  TO  W* 

ip       9,  34  SAY  '  -*-* 

SET  COLOR  TO  W 


SORRY  **' 


@ 
DO 


11,  26 

12,  26 

13,  26 

14,  26 
15,26 

delayii 


SAY 
SAY 
SAY 
SAY 
SAY 


CANNOT  PROVIDE  YOU  THIS  LIS" 
THIS  SUBDEPARTMENT  MUST  BE 
MANNED  MANUALLY 


ENDCASE 

END  IF 
END  IF 
STORE  ' 
3  20, 28 
£  21,28 
£  22, 28 
READ 
IF  UPPER (ansr)  #  ' Y' 

STORE  » N'  TO  ans 
END  IF 
ENDDO 


'  TO  ansr 

SAY  'DO  YCU  WANT  TO  SEE  OR  PRINT  AGAIN' 

SAY  '     ONE  OF  THE  AVAILABLE  LISTS?' 

SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==> '  GET  ansr 
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CLEAR 

CLOSE  DATABASES 

DELETE    FILE    crswrnernb.  ndx 

RETURN 
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*-**  PROGRAM  LIST5 


a 
b 
printer 


CLEAR 

STORE  . F.  TO 

STORE  . F.  TO 

STORE  . F.  TO 

SELECT  1 

USE  shift£a 

SELECT  £ 

USE  shift£b 

SELECT  3 

USE  ranks 

select  4 

USE  specialt 

SELECT  5 

USE  shift  1st 

DELETE  NEXT  100 

PACK 

STORE  ■  '  TO  ans 

DO  WHILE  UPPER (ans)  #  '  N1 

DO  sereen£ 

i?       9,  34 

C?   -12,  £3 

@  13, £8 

i?  18,  £3 

STORE  i3 

e  £0, £8 

PICTURE 

READ 

IF  resp  =  £ 

STORE  . T.  TO  printer 


SAY  'YOUR  CHOICE' 

SAY  'LIST(S)  ON  SCREEN   : 

1' 

SAY  'LIST(S)  ON  PRINTER  : 

31 

i— 

CLEAR 

TO  resp 

SAY  'ENTER  YOUR  CHOICE  ==> 

•  G 

'9'  RANGE  1,£ 

GET  resp 


&    £0, 

£8  SAY  'PUT  YOUR  PRINTER  ON 

DO  delay 

END  IF 

@  i£, £8 

SAY  ' 

? 

&    13, £8 

SAY  ' 

» 

5  1£,  30 

SAY  'SHIFT 

A 1' 

l?  13,  30 

SAY  'SHIFT 

B £' 

£  14,30 

SAY  'SHIFT 

A  AND  B 3' 

£  15, 30 

SAY  'EXIT 

4' 

&    18, £3 

CLEAR 

STORE  0 

TO  resp 

\p    £0,  £8 

SAY  ' ENTER 

YOUR  CHOICE  ==>  '  G 

PICTURE 

' 3'  RANGE 

1,4 

READ 

DO  CASE 

CASE 

resp  =  1 

STORE  . T. 

TO  a 

STORE  . F. 

TO  b 

CASE 

resp  =  £ 

STORE  -F. 

TO  a 

STORE  .  T. 

TO  b 

GET  resp 
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CASE  resp  =  3 
STORE  . T. 
STORE  . T. 
ENDCASE 
IF  resp  #  A 

\3  9,  £5  SAY 
@  10, £5  SAY 
if"  1 1 ,  £5  SAY 
@  12,  £5  SAY 


i? 


13, c 


SAY 


&     14, £5  SAY 
i?  15,  £5  SAY 


Tu  a 
TO  b 


TO  again 
again 

. F.  TO  again 

W* 


w 


FOR 
4- 


rarikcode  =  A— >  rank 


IF  a 

SELECT  1 
GO  TOP 
STORE  . T 
DO  WHILE 

IF  EOFO 
STORE 
ELSE 

SET  COLOR  TO 
>*  1£,  £5  SAY 
SET  COLOR  TO 
SELECT  3 
GO  TOP 
LOCATE 
SELECT 
GO  TOP 

LOCATE  FOR  speccode  =  A->  spec 
SELECT  5 
APPEND  BLANK 
REPLACE  rank 
REPLACE  name 
REPLACE  spec 
SELECT  1 
SK I P 
END  IF 
ENDDO 
CLEAR 
SELECT  5 
IF  printer 

SET  PRINT  ON 

REPORT  FORM  lshift£a 

SET  PRINT  OFF 


PROCESSING  IN  PROGRESS' 


WITH 
WITH 
WITH 


C  — >  rarikriame 

A— >  name 

D— >  specname 
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ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
ENDIF 
CLEAR 
SO  TOP 

DELETE  NEXT  li30 
PACK 

IF  b 

DO  screeri£ 

£  10,25  SAY  '  ' 

SELECT  2 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOFO 

STORE  . F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

@  1£,E5  SAY  '      PROCESSING  IN  PROGRESS1 

SET  COLOR  TO  W 

SELECT  3 

GO  TOP 

LOCATE  FOR  rankcode  =  B->  rank 

SELECT  4 

GO  TOP 

LOCATE  FOR  speccode  =  B->  spec 

SELECT  5 

APPEND  BLANK 

REPLACE  rank  WITH  C-> rankname 

REPLACE  name  WITH  B-> name 

REPLACE  spec  WITH  D-> specname 

SELECT  £ 

SKIP 
ENDIF 
ENDDO 
CLEAR 
SELECT  5 
GO  TOP 
IF  printer 

SET  PRINT  ON 

REPORT  FORM  IshiftEb 

SET  PRINT  OFF 
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ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
END  IF 
ENDIF 
CLEAR 
GO  TOP 

DELETE  NEXT  130 
PACK 

STORE  »  '  TO  ansr 

£  £tf,  £8  SAY  ' DO  YOU  NEED  MORE  OF  THE  ABOVE' 

@  £1,28  SAY  '      AVAILABLE  LISTS?7 

£  ££,£8  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==> '  GET  amr 

READ 

IF  UPPER (ansr)  #  '  Y' 
STORE  ' N'  TO  ans 

ENDIF 
ELSE 

STORE  '  N'  TO  ar.s 
ENDIF 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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***    PROGRAM  LISTS 

CLEAR 

STORE  . F. 

TO  a 

STORE  . F. 

TO  b 

STORE  . F. 

TO  c 

STORE  . F. 

TO  printer 

SELECT  1 

USE  shiftSa 
SELECT  £ 
USE  shiftSb 
SELECT  3 
USE  shiftSc 
SELECT  4 
USE  ranks 
select  5 
USE  specialt 
SELECT  6 
USE  shift  1st 
DELETE  NEXT  100 
PACK 

STORE  '  '  TO  ans 
DO  WHILE  UPPER (an? 
DO  screen£ 


)  #  '  N' 


&       9,  34 

&    1£,£8 

<§  13, £8 

@  IS, £3 

STORE  0 

@  20,28 

PICTURE 

READ 

IF  resp 
STORE 

i?  £0,  £8  SAY 
DO  delay 

END  IF 

£  12,28 

@  13, £8 
1£,  30 
13,  30 


l1 


SAY  ' YOUR  CHOICE' 

SAY  'LIST(S)  ON  SCREEN 

SAY  'LIST(S)  ON  PRINTER  : 

CLEAR 

TO  resp 

SAY  'ENTER  YOUR  CHOICE  ==>  '  GET  resp 

'  9'  RANGE  1,2 


T.  TO  printer 

'PUT  YOUR  PRINTER  ON 


14,  30 

15,  30 
18,  £3 

STORE  0 
@  £0, £8 
PICTURE 
READ 


SHIFT 
SHIFT 
SHIFT 


SAY 

SAY 

SAY 

SAY 

SAY 

SAY 

CLEAR 

TO  resp 

SAY  ' ENTER 

' 9'  RANGE 


A 
B 

C 


1' 
pi 


EXIT 4' 


YOUR 
,4 


CHOICE  ==> '  GET  resp 
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DO  CASE 

CASE 

resp  = 

1 

STORE  . 

T. 

TO 

a 

STORE  . 

F. 

TO 

b 

STORE  - 

F. 

TO 

c 

CASE 

resp  = 

£ 

STORE  . 

F. 

TO 

a 

STORE  . 

T. 

TO 

b 

STORE  . 

F. 

TO 

c 

CASE 

resp  = 

o 

STORE  . 

F. 

TO 

a 

STORE  . 

F. 

TO 

b 

STORE  . 

T. 

TO 

c 

ENDCA3E 

IF  resp 

#  4 

@   9, 

£5  SAY 

£  10, 

£5  SAY 

@  11, 

£5  SAY 

@  12, 

£5  SAY 

£  13, 

£5  SAY 

@  14, 

£5  SAY 

if"  15, 

25  SAY 

IF  a 

SELECT  1 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE   again 
IF  EOFO 

STORE  . F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

@  12,25  SAY  '       PROCESSING  IN  PROGRESS' 

SET  COLOR  TO  W 

SELECT  4 

GO  TOP 

LOCATE  FOR  rankcode  =  A-> rank 

SELECT  5 

GO  TOP 

LOCATE  FOR  speccode  =  A->  spec 

SELECT  6 

APPEND  BLANK 

REPLACE  rank  WITH  D-> rankname 

REPLACE  name  WITH  A- > name 

REPLACE  spec  WITH  E->  specnarne 

SELECT  1 

SKIP 
END  IF 
ENDDO 
CLEAR 
SELECT  6 
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IF  printer 

SET  PRINT  ON 
REPORT  FORM  IshiftSa 
SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 

DO  delayl 

SKIP 
ENDDO 


END  IF 

ENDIF 

CLEAR 

GO  TOP 

DELETE  NEXT  100 

PACK 

IF  b 

DO  screenE 

i*  10,25  SAY  ' 

SELECT  £ 

GO  TOP 

STORE  . T.  TO  again 

DO  WHILE  again 

IF  EOFO 

STORE  .F.  TO 

again 

ELSE 

SET  COLOR  TO 

W* 

@  IE, £5  SAY  ' 

PROCESSING  I 

SET  COLOR  TO 

W 

SELECT  4 

GO  TOP 

LOCATE  FOR  rankcode  =  B-> rank 

SELECT  5 

GO  TOP 

LOCATE  FOR  speccode  =  B->  spec 

SELECT  6 

APPEND  BLANK 

REPLACE  rank 

WITH  D->rankname 

REPLACE  name 

WITH  B-) name 

REPLACE  spec 

WITH  E-> specname 

SELECT  E 

SKIP 

ENDIF 

ENDDO 

CLEAR 

SELECT  E 

GO  TOP 

PRQGniEbb' 
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IF  printer 

SET  PRINT  ON 
REPORT  FORM  lshiftSb 
SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayl 
SKIP 
ENDDO 
ENDIF 
ENDIF 
CLEAR 
GO  TOP 

DELETE  NEXT  HZltZI 
PACK 

IF  c 

DO  screens 

@  10,  £5  SAY  '  ' 

SELECT  3 
GO  TOP 

STORE  . T.  TO  again 
DO  WHILE  again 
IF  EOFO 

STORE  . F.  TO  again 
ELSE 

SET  COLOR  TO  W* 

@  IE, £5  SAY  '      PROCESSING  IN  PROGRESS' 

SET  COLOR  TO  W 

SELECT  4 

GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 

SELECT  5 

GO  TOP 

LOCATE  FOR  speccode  =  C-> spec 

SELECT  b 

APPEND  BLANK 

REPLACE  rank  WITH  D-> rankname 

REPLACE  name  WITH  C-> name 

REPLACE  spec  WITH  E-> specname 

SELECT  3 

SKIP 
ENDIF 
ENDDO 
CLEAR 
SELECT  6 
GO  TOP 
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IF  printer 

SET  PRINT  ON 
REPORT  FORM  IshiftSe 
ELSE 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

DISPLAY  name,  rank,  spec 
DO  delayi 
SKIP 
ENDDO 
END  IF 
END  IF 
CLEAR 
GO  TOP 

DELETE  NEXT  1013 
POCK 

STORE  '  '  TO  ansr 

@  £0,  £8  SAY  '  DO  YOU  NEED  MORE  OF  THE  ABOVE' 
&    £1,28  SAY  '      AVAILABLE  LISTS?' 

@  £2,28  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==> '  GET  ansr 
READ 
-  IF  UPPER (ansr)  #  ' Y' 
STORE  ' N'  TO  ans 
END  IF 
ELSE 

STORE  ' N'  TO  ans 
END  I F 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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-**-*  PROGRAM  LIST7 


TO  printer 


CLEAR 

STORE  .  F, 

SELECT  1 

USE  ranks 

select  E 

USE  spec i alt 

SELECT  3 

USE  salert 

SELECT  4 

USE  alert  1st 

DELETE  NEXT  100 

PACK 

STORE  '  »  TO  ans 

DO  WHILE  UPPER (ans)  #  ' N' 

DO  screenE 

@   9,34  SAY  'YOUR  CHOICE' 

&     12,28  SAY  'LIST(S)  ON  SCREEN   : 

£  13,  28  SAY  'LIST(S)  ON  PRINTER  : 

t?  13,  E3  CLEAR 

STORE  0  TO  resp 

@  -20, 28  SAY  'ENTER  YOUR  CHOICE  ==>  ' 


L»ET  resp 


PICTURE  '9'  RANGE  1,2 

READ 

IF  resp  =  E 

STORE  . T.  TO 

printer 

&    20, 28  SAY 

' PUT  YOUR 

PRINTER 

ON    ' 

DO  delay 

END  IF 

@   9,  25  SAY  ' 

6  10, E5  SAY  ' 

@  i 1 , 25  SAY  ' 

@  12, 25  SAY  ' 

&     13,25  SAY  ' 

SET  COLOR  TO  W* 

$  12,25  SAY  » 

PROCESSING 

IN  PROGRESS' 

SET  COLOR  TO  W 

SELECT  3 

GO  TOP 

DO  WHILE  -  NOT. 

EOFO 

SELECT  1 

GO  TOP 

LOCATE  FOR  r 

ankcode  = 

C->  r 

•ank 

SELECT  2 

GO  TOP 

LOCATE  FOR  s 

peccode  = 

C->  E 

.pec 
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SELECT  4 

APPEND  BLANK 

REPLACE  rank   WITH  fi->  rar.knarne 

REPLACE  name   WITH  C-> name 

REPLACE  spec   WITH  B— >  specname 

REPLACE  descr  WITH  C-> descr 

SELECT  3 

SKIP 
ENDDO 
CLEAR 
SELECT  4 
IF  printer 

SET  PRINT  ON 

REPORT  FORM  lslrt 

SET  PRINT  OFF 
ELSE 

GO  TOP 


DO  WHILE 

-NOT.  EOFO 

DISPLAY  descr, 

name,  rank, 

SI 

Dec 

DO  del 

ayl 

SK  I P 

ENDDO 

END  IF 

GO  TOP 

DELETE  NEXT 

nziia 

PACK 

CLEAR 

STORE  '  '  TO 

ansr 

@  EiZi,  £8  SAY 

' DO  YOU 

WANT 

TO  SEE 

OR 

PRINT 

@  £1,£8  SAY 

i 

AGAIN?' 

@  £2, £3  SAY 

•  ENTER  V 

OUR 

ANSWER  ( 

Y/N)  ==> ' 

READ 

IF  UPPER tansr)  #  '  Y' 

STORE  ' N' 

Tu  ans 

END  IF 

NDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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**■-*  PROGRAM  LISTS 


CLEAR 

STORE  . F. 

TO  py 

'inter 

SELECT  1 

USE  ranks 

select  E 

USE  specia 

It 

SELECT  3 

USE  aalert 

SELECT  4 

USE  alert  1st 

DELETE  NEXT  ItfiZ 

I 

POCK 

! 

STORE  '  '  TO  ans 

DO  WHILE  UPPER ( 

ans)  #  ' 

N' 

DO  screenE 

@   9,  34 

SAY 

' YOUR  CHOICE 

■■» 

@  IE, E8 

SAY 

' LIST(S) 

ON 

SCREEN   :   1' 

&     13,  £8 

SAY 

' LIST(S) 

ON 

PRINTER  :   £' 

&    18, E3 

CLEAR 

STORE  iZ) 

TO  resp 

£  £0, £8 

SAY 

' ENTER  YOUR 

CHOICE  ==>  '  G 

PICTURE 

'  9' 

RANGE  1, 

£ 

READ 

IF  resp 

=  £ 

STORE  . T. 

TO  prin 

ter 

&    ElZi, 

E8  SAY  ' PUT 

YOUR 

PRINTER  ON 

DO  delay 

END  IF 

&       9,  E5 

SAY 

@  10, E5 

SAY 

e  11, £5 

SAY 

@  1£, £5 

SAY 

t?  13,  £5 

SAY 

GET  resD 


SET  COLOR  TO  W* 

&     1£,£5  SAY  '       PROCESSING  IN  PROGRESS' 

SET  COLOR  TO  W 

SELECT  3 

GO  TOP 

DO  WHILE  . NOT.  EOF ( ) 

SELECT  1 

GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 

SELECT  £ 

GO  TOP 

LOCATE  FOR  speccode  =  C-> spec 


150 


SELECT  4 

APPEND  BLANK 

REPLACE  rank   WITH  A-> rankname 

REPLACE  name   WITH  C— > name 

REPLACE  spec   WITH  B-> specname 

REPLACE  descr  WITH  C-> descr 

SELECT  3 

SKIP 
ENDDO 
CLEAR 
SELECT  4 
IF  printer 

SET  PRINT  ON 

REPORT  FORM  lalrt 

SET  PRINT  OFF 
ELSE 

GO  TOP 

DO  WHILE  . NOT.  EOF ( ) 

DISPLAY  descr,  name,  rank,  spec 

DO  delayl 

SKIP 

ENDDO 
ENDIF 
GO  TOP 

DELETE  NEXT  100 
PACK 
CLEAR 

STORE  '  '  TO  ansr 

@  £0, £S  SAY  'DO  YOU  WANT  TO  SEE  OR  PRINT  THE  LIST1 
&    £1,28  SAY  '  AGAIN?' 

@  ££,EB  SAY  'ENTER  YOUR  ANSWER  CY/N)  ==>  '  GET  ansr 
READ 
IF  UPPER (ansr)  #  '  Y' 

STORE  ' N'  TO  ans 
END  I F 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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***  PROGRAM  LISTS 


CLEAR 

STORE  . F. 

TO  printer 

SELECT  1 

USE  ranks 

select  £ 

USE  specia 

It 

SELECT  3 

USE  galert 

SELECT  4 

USE  alertl 

3t 

DELETE  NEXT  H30 

PACK 

STORE  »  3     ' 

70  ans 

DO  WHILE  UPPER (ans)  #  ' N' 

DO  screenE 

i?   9,  34 

SAY  ' YOUR  CHOICE' 

&    IS, £8 

SAY  'LIST(S)  ON  SCREEN   :   1' 

&     13, S3 

SAY  » LIST(S)  ON  PRINTER  :   2' 

i?  13,23 

CLEAR 

STORE  13 

TO  resp 

i?  -28,  £3 

SAY  'ENTER  YOUR  CHOICE  ==>  '  G 

PICTURE 

'9'  RANGE  1,2 

GET  resp 


READ 

IF  resp  =  S 

STORE  . T.  TO  printer 

@  20,28  SAY  'PUT  YOUR  PRINTER 

DO  delay 
END  IF 


ON 


@ 

9,25 

SAY  ' 

& 

10,  25 

SAY  ' 

& 

11,  25 

SAY  ' 

@ 

12,25 

SAY  ' 

& 

1  Jj  j  C<-J 

SAY  ' 

SET  COLOR  TO  W* 

@  12,25  SAY  '       PROCESSING  IN  PROGRESS' 

SET  COLOR  TO  W 

SELECT  3 

GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

SELECT  1 

GO  TOP 

LOCATE  FOR  rankcode  =  C->  rank 

SELECT  2 

GO  TOP 

LOCATE  FOR  speccode  =  C-> spec 
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SELECT  4 
APPEND  BLANK 
REPLACE  rank 
REPLACE  name 
REPLACE  spec 
REPLACE  ciescr 
SELECT  3 
SKIP 

ENDDO 

CLEAR 

SELECT  4 


WITH 

A— >  ranknarne 

WITH 

C->  name 

W I TH 

B— > specname 

WITH 

C— >  descr 

c 


Df  l  riier 


SET  PRINT  ON 

REPORT  FORM  I  girt 

SET  PRINT  OFF 
ELSE 

30  TOP 

DO  WHILE  -NOT.  EOF-) 

DISPLAY  descr,  name,  rank,  spec 

DO  delayl 

SKIP 

ENDDO 
END  IF 
GO  TOP 

DELETE    NEXT    Ii3i3 
PACK 
CLEAR 

STORE    '     '     TO    ansr 

@  £0,28  SAY  'DO  YOU  WANT  TO  SEE  OR  PRINT  THE  LIS" 
C"  £1,28  SAY  '  AGAIN?' 

£  £2, £8  SAY  'ENTER  YOUR  ANSWER  (Y/N)  ==>  '  GET  an? 
READ 
IF  UPPER (ansr)  #  '  Y' 

STORE  ' N'  TO  ans 
END  IF 
ENDDO 

CLEAR 

CLOSE  DATABASES 

RETURN 
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APPENDIX  B 


fage  No. 
06/  1  7/86 


LlbT  UF  CrtLW  I1h.Ntit.hb  SORTED 


UN   I  HUbE  NAMhb 


NAME 


RANK 


SPECI  aLi'i 


.  n  f « U 


Appel  Jonn  b 
Armout  Haul  b 
Armstrong  David 
Beam  Alan  K 
biondi  Daniel  M 
Cavalim  Larry  F 
C l a  r  K  Andrews  1 
Clark  Jarnes  D 
Lline  William  R 
Concon  Stepnen  J 
Condon  Tim  N 
Ldson  Alan  a 
Emerson  burt  F 
Ertle  Aaron  P 
Lrvin  Joseph  H 
h la mini  Charles 
Fogel  bregory  B 
betline  Scott  B 
Gorman  Dennis  H 
Hodson  Aaron  fl 
ibel  Peter  J 
lilt  Thomas  C 
Isola  Mike  L 
Jailee  Jay  M 
Jellerson  Jack  L 
Kett  David  b 
Knubis  James  P 
Kohn  Robert  H 
Little  Frederik 
Lyon  Arthur  B 
nallon  Patrick  F 
Markley  Daniel  I 
Martyr  Paul  J 
McPherson  Jack  A 
Miller  Jacj  T 
Nelan  Jarnes  H 


bENiUK 

CHIEF  PU 

ENGINEER 

_  id  /  -i  i 

SEAMAN 

CGMMUNiCA  l  ItlN 

,.  i  ■  '   . •  • 

SENIOR 

CHIEF  PU 

RADAR  USER 

2.vl 

SEAMAN 

ENGINEER 

2  i  H  8  / 

bEAMAN 

WLAPUN  LUN'I hUL 

20bbb 

SEAMAN 

ENGINEER 

^4b'-jj 

bLAMAN 

WLAPUN  LUN! KUL 

2fc)b  /  fcs 

bEAMAN 

WLAPUN  CONTROL 

^ub  72 

SEAMAN 

ELECTRONIC 

2SW  l  fa 

LIEUTENANT 

UtLI\ 

2  0  7  b  b 

PU  1st 

CLAbb 

LLtL 1 Klbl AN 

^.waiii) 

bbAITAN 

ENGINEER 

24fcJbb 

1st  LIEUTENANT 

DECK 

20/  49 

ENSIGN 

DECK 

20/  30 

ENSIGN 

ENGINEER 

20768 

SEAMAN 

WLAPUN  UbER 

209  30 

bLAMAN 

WLAPUN  CUN'l  KUL 

2  Wy  b  b 

bEAMAN 

ELECTRICIAN 

2499ti 

PU  1st 

CLASS 

LNGlNLEK 

^wbjl 

PU  Jrd 

CLASS 

ENGiNLbrt 

20910 

PU  2nd 

LLAbS 

LLbL 1 KUNlL 

^.  w  a  t>  / 

bEAMAN 

WLAPUN  UbLK 

^  0  y  l  b 

PO  3rd 

CLASS 

WEAPUN  USER 

20873 

LIEUTENANT 

ENGINEER 

20741 

ENSIGN 

DECK 

207S6 

bLAMAN 

cLLu IhlLlflN 

2  'l  b  b  / 

SEAMAN 

ENGiNEER 

249^y 

SEAMAN 

ENGINEER 

2  4  9  o  1 

SEAMAN 

WEAPUN  UbLK 

^Ub^b 

CHIEF  PU 

bUPPLY 

zwbwy 

bEAMAN 

CUMMUNICA 1 1UN 

•2128b 

SEAMAN 

NAV1GAT1UN 

2  i.jw2 

bEAMAN 

ENGINEER 

24bWto 

SEAMAN 

COMMUNICATION 

zi^a4 

SEAMAN 

WEAPUN  UbLK 

2tfb4« 

MASTER 

CHIEF  PU 

WLAPUN  CUN 1 KUL 

/W/b^ 
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06/17/86 


LIST  OF  CREW  MEMBERS  SORTED 
ON  THOSE  NAMES 


NAME  RANK  bPhClALTY       SERNU 


Newell  Peet  S  MASTER  CHIEF  PO  COMMUNICATION  20772 

Nezart  Jerome  G  CHIEF  PO  KAUAK  USLR  2Wti<0i 

Nezos  Fred  T  MASTER  CHIEF  Pu  ELECTRICIAN  20/// 

Nicholson  George  K  PO  1st  LLAbb     NAViGAi'lUN  .w.^l'-j 

Nikola  Michael  E  SEAMAN  ELECTRICIAN  2D001 

Norton  Harold  G  PO  2nd  CLASS     WEAPON  USER  20845 

Pulk  Richard  G  SEAMAN  WFAPUN  UbitR  20y3b 

Uualls  Terry  D  SLAMAN  WEAPUN  USER  ^Wb^/ 

UuiCK  Gim  G  PU  Jrd  LLAbS      WEAPON  UUNTKUL   20890 

Uuinn  Daniel  F  PO  3rd  CLASS     NAVIGATION  2V3901 

Ramey  Harold  A  PO  3rd  CLASS     COMMUNICATION  20892 

Kugg  Bill  S  MASTER  CHIEF  PO  ELECTRONIC  207  8  U 

Russ  Randy  G  bhAClAN  LNGlNtLH  liHDi 

Kusso  James  D  btNlUK  CHIEF  PU  WtAPUN  UbtK  ^w/tiD 

Sansiveri  Dan  K  SEAMAN  NAVIGATION  21^-jD 

Sestak  Timothy  W  SEAMAN  NAVIGATION  21358 

Shapiro  Edwin  w  SEAMAN  NAVIGATION  2l3b9 

borensen  Donald  M  bEAflAN  ELECTRUNIC  9ol24 

Steevens  James  F  PO  2nd  GLASS     WEAPON  CON  l'RUL   20852 

Sturgeon  James  K  SEAMAN  ENGINEER  ^4'3bj 

Tally  Chris  S  LT.  CUMMANDER    DECK  zv)  /  3<i 

Iran  Mike  K  SEAMAN  SANITARY  214W9 

Trend  Ted  M  btAflAN  SUPPLY  -14zj 

Trigo  Bum  F  CHIEF  PO  SANITARY  20807 

Unger  Jell  H  bEAMAN  ENGINEER  21438 

Weingarten  Sam   F  SEAMAN  RADAR  UbER  21^«b 

William  Robert  P  SEAMAN  ENGINEER  -i4bb 
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fage  No. 
0b/ l//ab 


LIST  UK  CREW  MEI1BERS  SUKTED 
UN  THOSE  RANKS 


RANK 


SPELIALTV 


NANB 


dLKNU 


LT.  CONMANDER 

LIEUTENANT 

LIEUTENANT 

1st  LIEUTENANT 

ENSIGN 

ENSIGN 

ENSIGN 

MASTER  LHltK  PU 

MASTER  CHIEF  PU 

MASTER  CHIEF  PO 

MASTER  CHIEF  PG 

SENIOR  CHIEF  PO 

SENIOR  CHIEF  PU 

SENIOR  CHIEF  PO 

CHIEF  PO 

CHIEF  PU 

CHIEF  PO 

PO  1st  CLASS 

PU  1st  CLAbS 

PO  1st  CLASS 

PU  2nd  CLASS 

PO  2nd  ULASS 

PO  2nd  CLAbS 

PO  3rd  CLASS 

PO  3rd  CLAbb 

PC  Jrd  ULASS 

PO  3rd  CLASS 

PO  3rd  CLASS 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

bEAMAN 

bEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 


DECK 

DECK 

ENGINEER 

DEUK 

DECK 

DECK 

ENGINEER 

WEAPUN  CONTROL 

COMMUNICATION 

ELECTRICIAN 

ELECTRONIC 

WEAPUN  USER 

RADAK  USER 

ENGINEER 

RADAR  USER 

SANITARY 

bUPPL* 

NAV1GAT1UN 

ENGINEER 

ELECTRICIAN 

WEAPUN  USER 

WEAPUN  CONTROL 

ELECTRONIC 

WEAPON  USER 

WEAPUN  CONTROL 

COMMUNILAT1UN 

NAVIGATION 

ENGINEER 

WEAPON  USER 


WEAPON 
WEAPON 
WEAPON 
WEAPON 
WEAPON 
WEAPON 
WEAPON 
WEAPON 
WEAPON 


USER 

USER 

USER 

USER 

USEK 

CGNTRUL 

CONTRUL 

CONTROL 

CONTROL 


LOMMUNICATION 
COMMUNICATION 


Tally  Chris  S  20734 

Concern  Stephen  J  ^w/^b 

Jallee  Jay  M  20  /  4  J 

Emerson  Burt  t  2td/4'J 

E  r  1 1  e  A  a  r  o  r  i  P  2  0  7  ti  0 

Jeiferson  Jack  L  207£i>b 

Ervin  Joseph  H  207'bfcl 

Nelan  James  H  20'/ fay 

Newell  Peet  S  2W>  /- 

Nezos  Fred  T  2077'/ 

Rugg  Bill  b  20780 

Kusso  James  u  2W/bb 

Armstrong  uavici  K  20793 

Appel  John  G  20794 

Nezart  Jerome  G  20bWl 

Trigo  Bum  F  J.<u£>v}  / 
Lyon  Artnur  b  .  ^(iBto'j 
Nicholson  George  K  ;*i0til9 

Gorman  Dennis  H  20BJ1 

Condon  Tim  N  20fcJ40 

Norton  Harold  b  20845 

bteevens  James  F  .:wfaji 

Ibel  Peter  J  20bb'> 

Isola  Mike  L  2W873 

Uuick  Uim  b  _^bb(/J 

Ramey  harold  A  zvia'-)^ 

Uuinn  Daniel  F  ^w9wi 

Hobson  Aaron  M  ^WSiw 

lilt  Thumas  u  ^U'-jk-. 

uualls  Terry  D  ii/j'^z;/ 

Pulk  Richard  U  2093b 

Miller  Jacj  1'  ^w'J4b 

Little  Frederik  J  zw^H'n 

Flarnini  Uharles  L>  ^W^IjU 

Fogel  Uregory  B  zli^ybb 

Clark  James  D  2fc)9  /  2 

Clark  Andrews  I  ^lU'-j  ;  ti 

Biondi  Daniel  M  ^Wd^rj 

Armout  Paul  u  JL1&Z4. 

McPherson  Jack  A  ^i^ibft 
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Page  No. 
tfb/  17/  bb 


LIST  OF  CREW  MEMBERS  SORTED 
UN  THOSE  KANKb 


RANK 


SPECIALTY 


NAME 


SERNO 


SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
bEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
bEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 


COMMUNICATION 

NAVIGATION 

NAVIGATION 

NAVIGATION 

NAVIGATION 

RADAR  USER 

bANl'J  ARY 

SUPPLY 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENG1NEEK 

ELECTRICIAN 

ELECTRICIAN 

ELECTRICIAN 

ELECTRONIC 

ELECTRONIC 


Mallon  Patrick  F  21289 

M  a  r  k  1  e  y  Daniel  1  ^J  jw^; 

Sansiveri  Dan  K  21205 

Sestak  Timothy  W  2105a 

Shapiro  Edwin  W  ^10bS 

Wemgarten  Sam   F  ^Ubb 

Iran  Mike  K  ^.14wy 

Trend  Ted  M  21  i23 

Unger  Jell  H  2l^ba 

Russ  Randy  G  <L  1  *±  5  1 

William  Kobert  v  ^14bb 

Beam  Alan  K  21487 

Edson  Alan  B  248b9 

Cava  1  mi  Larry  F  24893 

Martyr  Paul  J  249ls)b 

Knubis  James  P  24929 

Kohn  Robert  H  24951 

bturgeon  James  K  24982 

Kett  uavid  G  -.'i'jy/ 

Getline  bcott  B  2499b 

Nikola  Michael  E  ^'.Jtiwi 

Ciine  William  K  2501b 

Sorensen  Donald  N  yjL.'i 
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Page  No.       1 
06/17/86 

LIST  OF  UREW  MEMBERS  SORTED 

ON  THOSE  ENROLLMENT  DATE 
IN  DATE         NAME  RANK  bKhLiALTi 


it-iiNU 


06/06/84  Concern  Stephen  J 
06/22/64  Armstrong  David  K 
07/03/B4  Nelan  James  H 
07/1B/84  Lyon  Arthur  B 
08/19/64  Nezos  Fred  T 
12/01/84  lift  Thomas  C 
12/03/B4  Edson  Alan  B 
12/0B/B4  Russ  Randy  0 
12/10/84  Kohn  Robert  H 
12/12/84  Kett  David  G 
12/14/64  Weingarten  Sam   F 
12/^0/84  Ulark  Andrews  I 
01/31/85  Ervm  Joseph  H 
04/24/85  Nicholson  George  1 
05/07/85  Nikola  Michael  £ 
05/11/85  Little  Fredenk  J 
05/14/85  Trend  Ted  M 
05/19/B5  Cavalmi  Larry  F 
05/27/85  Mcpherson  Jack  A 
0b/05/85  Sansiveri  Dan  K 
06/09/85  Miller  Jacj  T 
06/16/85  Hobson  Aaron  M 
06/18/85  Ibel  Peter  J 
06/27/b5  Steevens  James  F 
06/30/B5  Gorman  Dennis  H 
07/10/65  Tally  Chris  S 
07/11/85  Beam  Alan  K 
07/14/85  Appel  John  G 
07/17/85  Emerson  Burt  F 
07/18/85  Flamini  Charles  D 
07/19/85  Newell  Peet  S 
07/21/85  Norton  Harold  G 
07/25/85  Rugg  Bill  S 
08/04/85  Nezart  Jerome  G 
06/19/85  Oualis  Terry  D 
06/24/B5  Malion  Patrick  F 
09/03/B5  Getline  Scott  B 
09/04/85  Ertle  Aaron  P 
09/06/65  Clark  James  D 
09/17/65  Martyr  Paul  J 


LIEUTENANT 

DECK 

^0?  .it 

SENIOR 

CHIEF 

PO 

RADAR  UbER 

20793 

MASTER 

LHlhF 

PO 

WEARUN  LUN 1 KUL 

^0  /  by 

CHIEF  PU 

SUPPLY 

20609 

MASTER 

CHIEF 

PO 

ELECTRICIAN 

2W  /  /  V 

SEAMAN 

WEAPUN  U'ohK 

2091b 

SEAMAN 

ENU1NEER 

24869 

SEAMAN 

ENbiNLER 

21  45i 

SEAMAN 

ENGINEER 

24951 

SEAMAN 

ELECTRICIAN 

2499  / 

SEAMAN 

RADAR  Ubhk 

Zl  Jtth 

SEAMAN 

WEAPON  CONTROL 

20978 

ENSIGN 

ENGINEER 

207  bb 

PO  1st 

CLASS 

NAVIGATION 

20tJl^ 

SEAMAN 

ELECTRICIAN 

2  b  0  0 1 

SEAMAN 

WEAPUN  UbhH 

20  ^  4  9 

SEAMAN 

SUPPLY 

214__. 

SEAMAN 

ENGINEER 

24693 

SEAMAN 

C0MMUN1LA  HUN 

21  2fci4 

SEAMAN 

NAVIGATION 

^Ijjj 

SEAMAN 

WEAPON  USER 

20946 

PO  3rd 

CLASS 

ENGINEER 

2091  0 

PO  2nd 

CLASS 

ELECTRONIC 

2086  / 

PO  2nd 

CLASS 

WEAPON  CONTROL 

ZVJtiZj^ 

PO  1st 

CLASS 

ENGINEER 

^0b3l 

LT.  COMMANDER 

DECK 

2W/J4 

SEAMAN 

ENGINEER 

21467 

SENIOR 

CHIEF 

PO 

ENGINEER 

20/94 

1st  LIEUTENANT 

DEUK 

20  /  4*3 

SEAMAN 

WEAPON  USER 

20950 

MASTER 

CHIEF 

PO 

COMMUNICATION 

207  7  2 

PU  2nd 

CLASS 

WEAPUN  UbhK 

2^a4j 

MASTER 

LH1EF 

PU 

ELECTRONIC 

20/60 

CHIEF  PO 

RADAR  USER 

20601 

SEAMAN 

WEAPUN  UbER 

20927 

SEAMAN 

COMMUNICATION 

21^6^ 

SEAMAN 

ELECTRICIAN 

249y6 

ENSIGN 

DECK 

20750 

SEAMAN 

WEAPUN  CONTROL 

20^  /2 

SEAMAN 

ENGINEER 

2490b 
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Page    No. 
id  t>/  17/86 


LIST  Ub     CHEW  MEMBEKb  SORTED 
ON  THOSE  ENROLLMENT  DATE 


IN  DATE 


NAME 


RANK 


.PtLlALI  V 


.LKNU 


09/20/85 

09/24/85 
10/01/8:5 
12/01/85 
12/04/85 
12/ 17/85 
01/18/86 
01/24/bb 
01/31/86 
02/02/86 
0^/09/86 
02/ 16/66 
02/21/86 
02/28/86 
03/07/bb 
03/  11/bb 
04/01/bb 
04/02/86 
04/09/86 
04/ 14/bb 
04/23/86 
05/07/86 
05/ 10/bto 


Tran  Mike  K 
Shapiro  Edwin  W 
Rarney  Harold  A 
Sturgeon  Jarnes 
Cline  William  R 
Armout  Paul  G 
Pulk  Richard  L> 
Biondi  Daniel  M 
Uuinn  Daniel  F 
Markley  Daniel 
Russo  James  D 
Sestak  Timothy 
William  Robert 
Jefferson  Jack 
Linger  Jeff  H 
Isola  Mike  L 
Knudis  James  P 
Condon  Tim  N 
Quick  Gim  G 
Sorensen  Donald 
Jallee  Jay  M 
Trigo  Bum  F 
Fogel  Gregory  B 


SEAMAN 

SANITARY 

21409 

SEAMAN 

NAVIGATION 

2  i  Jb  .  ' 

PO  3rd 

CLASS 

C0MMUN1CA  "1*1  UN 

20b  9  2 

K 

SEAMAN 

ENU1NEEK 

^■*i.'-JtilS 

SEAMAN 

ELECTRONIC 

jL'LiVJ  1  b 

SEAMAN 

CUNMUNICA I 1UN 

2 1  024 

SEAMAN 

WEAPON  Ubhrt 

J.  Vj  '_•'  j  o 

SEAMAN 

WEAPUN  LUNIKUL 

^0'^'dLi 

PO  3rd 

CLASS 

NAVIGATION 

20901 

T 

SEAMAN 

NAVIGATION 

21  302 

SENIOR 

CHIEF 

PO  WEAPUN  UbLK 

20  /  bo 

W 

SEAMAN 

NAV1UA 1 IUN 

21  jj« 

P 

SEAMAN 

ENGINEER 

2146b 

L 

ENSIGN 

DECK 

20756 

SEAMAN 

ENG1NEEK 

a  1 4  j  a 

PO  3rd 

LLAbS 

WEAPON  USER 

20b73 

SEAMAN 

ENGINEER 

24929 

PO  1st 

CLASS 

ELECTRICIAN 

2  l/J  b  4  0 

PO  3rd 

CLASS 

WEAPON  CONTRUL 

iWti'i  0 

M 

SEAMAN 

ELECTRONIC 

yoi  _~4 

LIEUTENANT 

ENGINEER 

^  v.i  7  4  I 

CHIEF  PO 

SANITARY 

^0b0  / 

SEAMAN 

WEAPUN  CUN  1  RUE 

^0ybb 
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Page  No.       1 
(36/17/86 

LIST  OF  CHEW  MEMBERS  SORTED 

ON  THOSE  DISENROLLMENT  DATE 
OUTDATE         NAME  HANK  bPtLiALIi      SEHNO 


(dti/17/65  Armout  Paul  G  SEAMAN  COMMUNICATION  21024 

06/(21/86  lift  Thomas  C  SEAMAN  WEAPUN  UbEh  2W9lb 

0b/03/86  Edson  Alan  B  SEAMAN  ENGINEER  24bbb 

0b/0b/86  Russ  Randy  b  SEAMAN  ENbiNhCK  ^1451 

wa/lM/ab  Kohn  Robert  H  SEAMAN  ENGINEER  24^51 

06/12/86  Rett  David  G  SEAMAN  ELECTRICIAN  24907 

0bV  14/86  Wemgarten  Sam   F  SEAMAN  RADAR  U'oEK  ^l_5fcib 

(Z)8/20/bb  Clark  Andrews  I  SEAMAN  WEAPUN  LUNIHUL  kW'^/ti 

Wl/07/87  Nikola  Michael  E  SEAMAN  ELECTHlClAN  ^Liw^l 

01/11/67  Little  Frederik  J  SEAMAN  WEAPON  USER  20949 

01/14/87  Trend  Ted  M  SEAMAN  SUPPC*  ^1423 

01/19/U7  Cavalini  Carry  F  SEAMAN  ENGINEER  ^4fcJ"3o 

Wl/27/fcJ7  McPherson  Jack  A  SEAMAN         •    CUMMUN 1CA r 1UN  2i2b^ 

02/05/87  Sansiveri  Dan  K  SEAMAN  NAVIGATION  21335 

02/09/87  Miller  Jacj  T  SEAMAN  WEAPUN  Ubth  ^w-J4tt 

W3/11/87  Beam  Alan  K  SEAMAN  ENGINEEK  ^14fcw 

03/18/87  Flamini  Charles  D  SEAMAN  WEAPUN  UbEK  20y5« 

W4/ 19/67  Quails  Terry  D  SEAMAN  WEAPUN  USER  .  20^2'/ 

W4/24/87  Mallon  Patrick  F  SEAMAN  CUMMUN  iLA  I'  1  UN  21^ab 

04/24/87  Shapiro  Edwin  W  SEAMAN  NAVlbATlUN  2ljfo^ 

WD/03/U7  Uetline  bcott  H  SEAMAN  ECCClKlCiAN  ^4'r'?a 

05/06/87  Clark  James  D  SEAMAN  WEAPON  CONTROL  20972 

05/17/67  Martyr  Paul  J  SEAMAN  ENGINEER  24906 

05/20/67  Tran  Mike  K  SEAMAN  SANITARY       .  214W9 

08/01/b7  Sturgeon  James  K  SEAMAN  ENUINEER  ^jaj 

0U/04/87  Cline  William  R  SEAMAN  ELECTRONIC  ^ji/Jlb 

09/18/87  Pulk  Richard  G  SEAMAN  WEAPON  UbEK  ^to^t. 

0y/24/87  Biondi  Daniel  M  SEAMAN  WEAPUN  CONTKUL  .:tob^:j 

lW/0^/87  Markley  Daniel  T  SEAMAN  NAVlbATlUN  ^Ijw^ 

10/16/87  Sestak  Timothy  W  SEAMAN  NAVIGAT1UN  21356 

10/21/87  William  Robert  P  SEAMAN  CNblNEER  21466 

11/07/87  Unger  Jell  H  SEAMAN  ENGINEER  2l4Jb 

Wl/iw/ao  Fogel  Gregory  B  SEAMAN  WbAPUN  LUN'lKUL  2WJt,b 

12/01/86  Knubis  James  P  SEAMAN  ENGINEER  ^4'rJ^b 

Sorensen  Donald  M  SEAMAN  ELECTRONIC  ^124 

Tally  Chris  S  LT.  COMMANDER    DECK  ^w/_,4 

Concon  Stepnen  J  ClEUTENANT  DECK  ^W/3b 

Jailee  Jay  M  LIEUTENANT  ENGINEER  2W74 1 

Emerson  Burt  F  1st  LIEUTENANT   DECK  2W/49 

Ertle  Aaron  P  ENSIGN  DECK  2W/5W 
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Page  No.       2 
tfb/  17/86 

LIST  OF  LKEW  MEMBERS  SORTED 

ON  THOSE  DISENROLLMENT  DATE 
OUTDATE         NAME  RANK  SPECIALTY      bhKNU 


Jelierson  Jack  L 
Ervin  Joseph  H 
Nelan  James  H 
Newell  Feet  S 
Nezos  Fred  T 
Rugg  Bill  S 
Wusso  James  D 
Armstrong  David  J 
Appel  John  G 
Nezart  Jerome  Li 
Trigo  Bum  F 
Lyon  Arthur  B 
Nicholson  George 
Gorman  Dennis  H 
Condon  Tim  N 
Norton  Harold  G 
Steevens  James  F 
Ibel  Peter  J 
Isola  Mike  L 
Quick  Gim  G 
Ramey  Harold  A 
Uuinn  Daniel  F 
Hodson  Aaron  M 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

ENSIGN 

DECK 

20756 

ENSIGN 

ENGINEER 

ZV)  /fc>6 

MASTER 

CHIEF 

PO 

WEAPUN  CONTROL 

207by 

MASTER 

CHIEF 

PU 

CGMI1UN1LA  i  iun 

zvi  /  /  .. 

MASTER 

CHIEF 

PU 

ELECTRICIAN 

20/  /  / 

MASTER 

CHIEF 

PO 

ELECTRONIC 

20780 

iLNIOR 

CHIEF 

PO 

WEAPON  UbER 

2ti  /  fcio 

SEN1GK 

CHIEF 

PO 

RAUAK  UbhK 

ZU)  /'J.i 

SENIOR 

CH1LF 

PO 

ENUlNEEH 

ZW  /  'i"t 

CHIEF  PO 

RADAR  USER 

20801 

CHIEF  PO 

SANITARY 

Z&CWi  / 

CHIEF  PO 

SUPPLY 

iWbwy 

PU  1st 

CLASS 

NAVlGATiUN 

zvai'-j 

PO  1st 

CLASS 

ENGINEER 

2Wfc>3l 

PO  1st 

CLASS 

ELECTRICIAN 

^uti*±u 

PO  Znd 

CLASS 

WEAPUN  UbLK 

^da'ij 

PO  2nd 

CLAbS 

WEAPUN  LUNi KUL 

ZkJ.^Zj^. 

PO  2nd 

CLASS 

ELECTRONIC 

20867 

PO  3rd 

CLASS 

WLAPUN  USER 

zwa'/  j> 

PO  3rd 

CLASS 

WEAPUN  CONTROL 

jwayw 

PO  3rd 

CLASS 

LUfinUNlLA  i  IUN 

^KJb'-J^ 

PO  3rd 

CLASS 

NAVlGATiUN 

Ztt'zjtii 

PO  3rd 

CLASS 

ENGINEER 

..  0  i  i  0 
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Page  No.       1 
06/ 17/86 

ALPHABETICAL  LIST  OF  CREW  MEMBERS 

WITH  RANKS  AND  SPECIALTIES 


NAME  RANK  SPECIALTY 


Appel  John  G  bENIUft  CHIEF  PC  ENblNELR 

Armout  Paul  G  SEAMAN  CGMMUN1UA i 1UN 

Armstrong  David  K  SENIOR  CHIEF  PU  RADAft  USER 

Beam  Alan  K  SEAMAN  ENGINEER 

Bipndi  Daniel  M  SEAMAN  WEAPON  CONTROL 

Cavalim  Larry  F  SEAMAN  ENGINEER 

Clark  Andrews  I  SEAMAN  WEAPUN  CONTROL 

Clark  James  D  bEAMAN  WEAPUN  LUNlkUL 

Ciine  William  R  SEAMAN  ELECTRONIC 

Concon  Stephen  J  LIEUTENANT        DECK 

Condon  Tim  N  PO  1st  CLASS     ELECTRICIAN 

Edson  Alan  B  SEAMAN  ENGINEER 

Emerson  Burt  F  1st  LIEUTENANT   DECK 

Ertle  Aaron  P  ENSIGN  UhiLh 

Ervin  Joseph  H  ENSIGN  ENGINEER 

Flamini  Charles  D  SEAMAN  WEAPON  USER 

Fogel  Gregory  B  SEAMAN  WEAPON  CGNTKUL 

Getline  Scott  B  SEAMAN  ELECTRICIAN 

Gorman  Dennis  H  PO  1st  CLASS      LNGiNEh-R 

Hobson  Aaron  M  PO  3rd  ULASS      ENblNEhK 

Ibel  Peter  J  PO  2nd  CLASS     ELECTRONIC 

Ifft  Thomas  C  SEAMAN  WEAPON  USEK 

Isola  Mike  L  PO  3rd  CLASS      WEAPON  UbEft 

Jalfee  Jay  M  LIEUTENANT        ENGINEER 

Jellerson  Jack  L  ENbibN  Dt(_K 

Rett  David  G  SEAMAN  ELEUi'RlUlAN 

Knubis  James  P  SEAMAN  ENGINEER 

Kohn  Robert  H  SEAMAN  ENGINEER 

Little  Frederik  J  SEAMAN  WEAPON  USER 

Lyon  Arthur  B  CHIEF  PO  SUPPLY 

Mallon  Patrick  F  SEAMAN  uCMMUNiCATlUN 

Markley  Daniel  T  SEAMAN  NAVIGATION 

Martyr  Paul  J  SEAMAN  ENGINEER 

McPherson  Jack  A  SEAMAN  COMMUNICATIUN 

Miller  Jacj  T  SEAMAN  WEAPON  USER 

Nelan  James  H  MASTER  CHIEF  PO  WEAPON  LUNTKUL 

Newell  Peet  S  MASTER  CHIEF  PO  C0MMUN1UA TION 

Nezart  Jerome  G  CHIEF  PO  RADAR  USER 

Nezos  Fred  T  MASTER  CHIEF  PO  ELECTRICIAN 

Nicholson  George  R  PO  1st  CLASS     NAVIGATION 
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Page  No. 
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ALPHABETICAL  LIST'  OF  UREW  MEttBERb 
WITH  HANKS  AND  SPECIALTIES 


NAME 


RANK 


SPECIALTY 


Nikola  Michael  E 
Norton  Harold  G 
Pulk  Richard  G 
Quails  Terry  D 
Quick  Gim  G 
Uumn  Daniel  F 
Kamey  Harold  A 
Rugg  bill  S 
Russ  Randy  G 
Russo  James  D 
Sansiveri  Dan  K 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Sorensen  Donald  Pi 
Steevens  James  F 
Sturgeon  James  K 
Tally  Chris  S 
Tran  Mike  K 
Trend  Ted  M 
Trigo  Bum  F 
Linger  Jell  H 
Weingarten  Sam   F 
William  Robert  P 


CLASS 


CLAbS 
CLAbb 

LLAbb 
CtiiLf 


CHIEF  PO 


SEAMAN 

PL)  2nd 

SEAMAN 

SEAMAN 

PG  3rd 

PO  Srd 

PU  Jrd 

MASTER 

SEAMAN 

SENIOR 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

PO  2nd  CLASS 

SEAMAN 

LT.  COMMANDER 

SEAMAN 

SbAMAN 

CHIEF  PO 

SEAMAN 

SEAMAN 

SEAMAN 


ELECTRICIAN 

WEAPUN  UShK 

WEAPON  USER 

WEAPON  USER 

WEAPON  CONTROL 

NAVIGATION 

COMMUNICATION 

ELECTRONIC 

ENGINEER 

WEAPON  USER 

NAVIGATIUN 

NAVlbA I iUN 

NAVlbA I  ION 

ELECTRONIC 

WEAPON  CONTROL 

ENGINEEK 

DECK 

SANITARY 

SUPPLY 

SANITARY 

ENGINEER 

RADAR  USER 

ENGINEER 
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Wb/  1  7/bb 

ALPHABETiLAL  LIST  UK  LKtW  MEMBt-K: 

WITH  THOSE  PHONE  NUMBER'S 


NAME  PHONE  NO 


Appel  John  G  340-b/bl 

Arrnout  Paul  0  b4ti-04bd 

Armstrong  David  K  3/J-b/tl^: 

Beam  Alan  K  b78-090b 

Biondx  Daniel  fl  375-5714 

Cavalim  Larry  K  657-3321 

Clark  Andrews  1  34y-«till 

Clark  James  D  j'/y-wa'/fa 

Cline  William  H  bbb-5bOtJ 

Concon  btepnen  J  o4b-ti7b4 

Condon  Tim  N  3/2-ya/j 

tdson  Alan  B  U/b-yoW4 

Emerson  Burt  F  567-8695 

Ertle  Aaron  P  373-4568 

Ervin  Joseph  H  373-6023 

Flamini  Charles  D  375-b901 

Fogel  Gregory  B  t>ob-77bb 

Oetline  bcott  B  37b-bb^b 

Gorman  Dennis  H  3b8-y7b<± 

Hodson  Aaron  M  b^5-4btib 

Ibel  Peter  J  J/b-b4bb 

lilt  Thomas  C  34b-6765 

Isola  Mike  L  33J-b783 

Jatlee  Jay  M  832-3134 

Jellerson  Jack  L  bb8-9743 

Kett  David  G  4bb-ytib^ 

Knubis  James  P  345-B9W5 

Kohn  Robert  H  877-9951 

Little  hrederik  J  jV4-b4WJ 

Lyon  Arthur  B  373-b/tiW 

Mallon  Patrick  F  bU7-7b50 

Markley  Daniel  T  467-5970 

Martyr  Paul  J  373-b7ti9 

McPherson  Jack  A  bi*7-9b52 

Miller  Jacj  T  372-64(32 

Nelan  James  H  456-6789 

Newell  Peet  S  372-6402 

Nezart  Jerome  G  75b-y^J4 

Nezos  Fred  T  375-b40b 

Nicholson  George  H  b23-J2^b 
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06/17/86 

ALPHABETICAL  LIST  OF  CREW  MEMBER; 

WITH  THOSE  PHONE  NUMBLHb 


NAME  PHONE  NO 


Nikola  Michael  E  445-5546 

Norton  Harold  0  598-2366 

Pulk  Richard  G  067-9650 

Quails  Terry  D  623-3470 

Quick  Gim  0  325-B764 

Quinn  Daniel  F  345-bbB2 

Harney  Harold  A  373-6/bti 

Hugg  Bill  S  456-9WUV 

Huss  Handy  G  373-4866 

Russo  James  D  546-5578 

Sansiveri  Dan  K  374-6581 

Sestak  Timothy  W  546-7789 

Shapiro  Edwin  W  345-B859 

Sorensen  Donald  M  687-8760 

Steevens  James  F  453-8J4^ 

Sturgeon  James  K  72J-b4U 

Tally  Chris  S  bbb-b^l'/ 

Iran  Mike  K  478-1234 

Trend  Ted  M  373-6770 

Trigo  Bum  F  373-4911 

Unger  Jell  H  646-67b4 

Wemgarten  Sam   F  455-99B5 

William  Robert  P  346-8971 
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0b/ 1/ /ab 

ALPHABETiUAL  LIST  OF  CHEW  MLM8ER: 

WITH  THOSE  HUME  ADDRESSES 


NAME  HUME  ADUKhbh 


Appel  John  G  15  Diane  Bonita 

Armout  Paul  G  21  Pine  Arornas 

Armstrong  David  K  16  Denis  Carrnel 

Beam  Alan  K  24  Franklin  Marina 

Biondi  Daniel  M  86  Monroe  Marina 

Cavalini  Larry  F  29  Side  Uarmel 

Clark  Andrews  1  43  Pine  Utay 

Clark  James  D  1  Acropolis  ballinas 

Cline  William  R  90  Carmen  Carrnel 

Concon  Stephen  J  44  Pine  Bonita 

Condon  Tim  N  60  Sinex  Monterey 

Edson  Alan  B  68  Castor  S.  Jose 

Emerson  Burt  F  41  9th  Fresno 

Ertle  Aaron  P  ZJ>    Camino  Marina 

Ervin  Joseph  H  jiz    Urove  Monterey 

Flamini  Charles  D  22  Cannery  Monterey 

Fogel  Gregory  B  36  Coral  Carrnel 

Getline  Scott  B  13  Vina  Monterey 

Gorman  Dennis  H  2  Franklin  Fresno 

Hobson  Aaron  M  39  Mam  ballinas 

Ibel  Peter  J  31  5th  Monterey 

lilt  Thomas  C  8  Acacia  baiinas 

Isola  Mike  L  99  David  S.  Cruz 

Jallee  Jay  M  10  Paso  San  Diego 

Jellerson  Jack  L  11  Forest  S.  Clara 

Kett  David  G  44  Story  Sallinas 

Knubis  James  P  3  14th  Monterey 

Kohn  Robert  H  26  Hawk  Fresno 

Little  Frederik  J  53  Vista  Monterey 

Lyon  Arthur  B  lb  Jacobs  uarrnel 

Mallon  Patrick  F  49  Scott  S.  Jose 

Markley  Daniel  T  66  Lake  Marina 

Martyr  Paul  J  25  Dexter  Carrnel 

McPherson  Jack  A  12  5th  Calaveras 

Miller  Jacj  T  44  Buna  Monterey 

Nelan  James  H  67  Paso  ballinae 

Newell  Peet  S  bW  Desty  Monterey 

Nezart  Jerome  G  14  Fox  Nestor 

Nezos  Fred  T  19  Franklin  Marina 

Nicholson  George  R  18  Elden  Gilroy 
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0b/ 17/86 

ALPHABETICAL  LIST  Oh'  CREW  MEMBERS 

WITH  THOSE  HUME  ADDrtESSES 


NAME 


HUME  ADDRESS 


Nikola  Michael  E 
Norton  Harold  G 
Pulk  Richard  G 
Quails  Terry  D 
Quick  Girn  G 
Quinn  Daniel  F 
Ramey  Harold  A 
Rugg  Bill  S 
K  u  s  s  Randy  Li 
Russo  James  D 
Sa.nsiveri  Dan  K 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Sorensen  Donald  M 


Steevens  Jarnes 
Sturgeon  James 
Tally  Chris  b 
Tran  Mike  K 
Trend  Ted  M 
Trigo  Burn  F 
Unger  Jell  H 
Weingarten  Sam 
William  Robert 


26  Dolores  b.  Lruz 

37  Holman  L.  Gatos 
3  3  Ruska  Reno 

65  Desty  Moreno 

22  Maple  Napa 

23  bth  Aromas 

Id  Grove  Monterey 

66  Carlos    S.     Jose 
xLl    Rarnona    Larrnel 
77    Hills    3.     Jose 
35    Diane    Monterey 

2  Fox  Los  Gatos 
53  Bth  Monterey 

27  Rositta  P.  Alto 
50  Pine  Palo  Alto 
6y  Lowell  S.  Jose 
3b0  Spencer  Uarmel 

9  Holman  S.  Clara 
93  Ocean  Monterey 

10  Mountain  Carrnel 

38  David  Monterey 

3  River  Sallinas 

J  Parthenon  Car me I 
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Page  No.       1 
06/ 17/ afa 

ALPHABETICAL  LIST  OF  CREW  MEMBERS 

WITH  THOSE  ADDRESSES  AND  PHONES 


NAME  HOME  ADDRESS       PHUNE  NU 


Appel  John  G  15  Diane  Bonita  J45-b7bl 

Arrnout  Paul  G  21  Pine  Arornas  b4b-W4jj 

Armstrong  David  K  lb  Denis  Carmel  373-b/tl^: 

Beam  Alan  K  Z4  Franklin  Marina  b/ti-wy05 

Biondi  Daniel  M  6b  Monroe  Marina  375-5714 

Cavalim  Larry  F  29  Side  Carmel  657-3321 

Clark  Andrews  1  43  Pine  Otay  J4y-bbll 

Clark  James  D  1  Acropolis  Sailinas  379-0876 

Clme  William  R  9W  Carmen  Carrnel  btib-3b3« 

Concon  Stephen  J  44  Pine  Bonita  ^i4b-a/b'i 

Condon  Tim  N  60  Sinex  Monterey  372-9675 

Edson  Alan  B  88  Castor  S.  Jose  876-y304 

Emerson  Burt  F  41  9th  Fresno  567-8895 

Ertle  Aaron  P  23  Camino  Marina  d73-45bb 

Ervin  Joseph  H  32  brove  Monterey  j/j-bW^j 

Flamim  Charles  D  Z'Z  Cannery  Monterey  J75-by01 

Fogel  Gregory  B  36  Coral  Carmel  656-7766 

Getlme  Scott  B  13  Vina  Monterey  37b-tD3^:a 

Gorman  Dennis  H  z  Franklin  Fresno  Jbb-y'/b4 

Hodson  Aaron  M  39  Main  Sallmas  b^D-4jbj 

Ibel  Peter  J  31  5tn  Monterey  37S-b466 

Iflt  Thomas  C  8  Acacia  Salinas  345-6785 

Isola  Mike  L  99  David  S.  Cruz  333-6783 

Jallee  Jay  M  10  Paso  San  Diego  632-3134 

Jellerson  Jack  L  11  Forest  S.  Llara  658-9743 

Rett  David  G  44  btory  Sailinas  45t>-9tib2 

Rnubis  James  P  3  14th  Monterey  345-W9W5 

Kohn  Robert  H  26  Hawk  Fresno  677-9991 

Little  Frederik  J  53  Vista  Monterey  374-6403 

Lyon  Arthur  B  16  Jacobs  Uarrnel  J73-b780 

Mallon  Patrick  F  49  bcott  b.  Jose  667-7b50 

Markley  Daniel  T  bb  Lake  Marina  467-9970 

Martyr  Paul  J  25  Dexter  Carrnel  373-6789 

McPherson  Jack  A  12  5th  Calaveras  687-yb52 

Miller  Jacj  T  44  Buna  Monterey  372-b402 

Nelan  James  H  b7  Paso  Sailinas  456-6789 

Newell  Peet  b  60  Desty  Monterey  J7z-b4W2 

Nezart  Jerome  G  14  Fox  Nestor  756-9234 

Nezos  Fred  T  19  Franklin  Marina  375-6406 

Nicholson  George  R  18  Elden  Gilroy  623-32^b 
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Page  No.       2 
Wb/ 17/66 

ALPHABET1UAL  LIST  OF  CREW  MEMBEKi 

WITH  THOSE  ADDRESSES  AND  PHONES 


NAME 


HOME  ADDRESS 


PHONE  NO 


Nikola  Michael  E 
Norton  Harold  G 
Pulk  Richard  G 
Uualls  Terry  D 
Uuick  Gim  G 
Uumn  Daniel  F 
Ramey  Harold  A 
Rugg  Bill  S 
Russ  Randy  G 
Russo  James  D 
Sansiveri  Dan  K 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Sorensen  Donald  M 
Steevens  James 
Sturgeon  James 
Tally  Chris  b 
Iran  Mike  K 
Trend  Ted  M 
Trigo  Bum  F 
Linger  Jell  H 
Weingarten  Sam 
William  Robert 


2b  Dolores  S.  Cruz  445-554b 

37  Hoi  man  L.  Gatos  byfi-^'Jbfa 
33  Ruska  Reno  367-9653 
b5  Desty  Moreno  623-3470 
22  Maple  Napa  325-6764 
29  bth  Aromas  J45-bfati^ 
15  Grove  Monterey  373-b756 
66  Carlos  S.  Jose  456-9067 
21  Ramona  Carmel  373-4666 
77  Hills  S.  Jose  546-5578 
35  Diane  Monterey  374-65til 
2  Fox  Los  Gatos  54b-77b9 
53  Bth  Monterey  345-8859 
27  Rositta  P.  Alto  687-8760 

F    50  Pine  Palo  Alto  45J-tt3«i^ 

K    b9  Lowell  b.  Jose  723-6413 

360  Spencer  Carmel  565-6217 

9  Holrnan  S.  Clara  478-1234 
93  Ocean  Monterey  373-6770 

10  Mountain  Carmel  373-4911 

38  David  Monterey  646-87b4 
F   3  River  Sallinas  455-9yab 

P    3  Parthenon  Larmel  J4b-ay/l 
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Page  No.       1 
06/17/86 

DEPARTMENT  :  

SUPERVISOR  :  

NAME  6ERNG        RANK  SPECIALTY      DEPARTMENT 


Tally  Chris  S 
Concern  Stephen  J 
Emerson  Burt  F 
Ertle  Aaron  P 
Jefferson  Jack  L 
Nelan  James  H 
Newell  Peet  S 
Russo  James  D 
Armstrong  David 
Nezart  Jerome  G 
Trigo  Bum  F 
Lyon  Arthur  B 
Nicholson  George 
Norton  Harold  G 
Steevens  James  F 
Isola  Mike  L 
Quick  Girn  G 
Ramey  Harold  A 
Uuinn  Daniel  F 
lilt  Thomas  L 
Uualls  Terry  D 
Pulk  Richard  G 
Miller  Jacj  T 
Little  Frederik 
Flamini  Charles 
Fogel  Gregory  B 
Clark  James  D 
Clark  Andrews  I 
Biondi  Daniel  M 
Armout  Paul  G 
McPherson  Jack  A 
flallon  Patrick  F 
Markley  Daniel  T 
banslveri  Dan  K 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Weingarten  Sam 
Tran  Mike  K 
Trend  Ted  M 


20734 

LT.  COMMANDER 

DECK 

DECK 

20736 

LIEUTENANT 

DECK 

DEUK 

20749 

1st  LIEUTENANT 

DELK 

DECK 

^0750 

ENSIGN 

DECK 

DELK 

20756 

ENSIGN 

DECK 

DECK 

20769 

MASTER 

CHIEF  PO 

WEAPUN  CONTROL 

DEUK 

20772 

MASTER 

CHIEF  PO 

C0MMUN1CA  HUN 

DELK 

20765 

SEN1UR 

CHIEF  PU 

WhAPUN  UbEK 

DECK 

i       20793 

SENIOR 

CHIEF  PO 

RADAR  USER 

DELK 

20601 

CHIEF  PO 

RADAR  USER 

DECK 

20607 

CHIEF  PO 

SANITARY 

DECK 

20O09 

CHIEF    PO 

SUPPLY 

DELK 

R  20619 

PO  1st 

CLASS 

NAVIGATION 

DELK 

20645 

PO  2nd 

CLASS 

WEAPON  USER 

DEuK 

20652 

PO  2nd 

CLASS 

WEAPUN  CONTRUL 

DECK 

20673 

PO  3rd 

LLAbb 

WEAPUN  UbEK 

UEUK 

20fci90 

PO  3rd 

CLASb- 

WEAPON  CONTROL 

DECK 

20692 

PO  3rd 

CLASS 

COMMUNICATION 

DECK 

20901 

PO  3rd 

CLASS 

NAVIGATION 

DELK 

20916 

SEAMAN 

WEAPON  UbEK 

DECK 

20927 

6EAMAN 

WEAPUN  USER 

DELK 

20936 

SEAMAN 

WEAPON  UbER 

DECK 

20946 

SEAMAN 

WEAPON  UbtK 

DECK 

J   20949 

SEAMAN 

WEAPUN  UbER 

UEUK 

)       20950 

SEAMAN 

WEAPUN  UbEK 

DEuK 

20966 

SEAMAN 

WEAPON  CONTROL 

DECK 

20972 

SEAMAN 

WEAPON  CONTROL 

DELK 

20976 

SEAMAN 

WEAPON  CONTRUL 

DELK 

20995 

SEAMAN 

WEAPUN  LUNIKUL 

DEUK 

21024 

SEAMAN 

COMMUNICATION 

DECK 

21264 

SEAMAN 

COMMUNICATlUN 

DELK 

21289 

SEAMAN 

COMMUNICATION 

DECK 

21302 

SEAMAN 

NAVlUATIUN 

DELK 

21335 

SEAMAN 

NAVIGATION 

DELK 

21358 

SEAMAN 

NAVIGATION 

DECK 

21369 

SEAMAN 

NAVIGATION 

DELK 

7       21386 

SEAMAN 

RADAR  USER 

DELK 

21409 

SEAMAN 

SANITARY 

DEuK 

21423 

SEAMAN 

SUPPLY 

DECK 
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DEPARTMENT  :  

SUPERVISOR  :  

NAME  SERNQ        RANK  SPECIALTY      DEPARTMEN 


Jalfee  Jay  M 
Ervin  Joseph  H 
Nezos  Fred  T 
Rugg  dill  S 
Appel  John  U 
Gorman  Dennis  ri 
Condon  Tim  N 
Ibel  Peter  J 
Hobson  Aaron  fl 
Linger  Jell  H 
Russ  Randy  G 
William  Robert  P 
Beam  Alan  K 
Edson  Alan  6 
Cavalim  Larry  F 
Martyr  Paul  J 
ftnudis  James  P 
Kohn  Robert  H 
Sturgeon  James  K 
Kett  David  G 
uetime  Scott  ti 
Nikola  Micnael  E 
Cline  William  R 
borensen  Donald  M 


20741 

LIEUTENANT 

ENGINEER 

I1ALH1  Nh. 

20768 

ENSIGN 

ENGINEER 

HALHlNL 

20777 

MASTER 

CHIEF  PG 

ELECTRICIAN 

N  A  C  H 1 N  h. 

20780 

MASTEK 

CHIEF  PG 

ELEU  1 RUN1U 

IIALIUNb. 

^0794 

SEN1UK 

CHIEF  PG 

ENGINEER 

flALHl  N  t. 

20831 

PG  1st 

CLASS 

ENGINEER 

MAUH 1 NE 

20fcJ40 

PG  1st 

CLAb.8 

ELECTRICIAN 

1*1  AC h  i.  Nh. 

20tit.7 

PO  2nd 

CLASS 

ELECTRONIC 

MAC Hi Mt 

2wyi0 

PG  3rd 

CLAh-b, 

tNbiNhLK 

MAUHiNh. 

21438 

SEAMAN 

ENGINEER 

M  A  C  H I N  E 

21451 

SEAMAN 

ENGINEEK 

i-t  A  U  h  1 N  E 

2148b 

SEAMAN 

ENL.lNh.ER 

MACH  l  Nh. 

21487 

SEAMAN 

ENGINEER 

flALH  LNE 

24869 

SEAMAN 

ENGINEER 

MACH 1NE 

24fc*93 

SEAMAN 

ENGINEER 

tlAUH LNfc 

24906 

SEAMAN 

ENGINEER 

MACHINE 

24^29 

SEAhAN 

LNblNthK 

n  AUHi  N  t. 

24951 

SEAMAN 

ENGINEER 

MACHINE 

24983 

SEAMAN 

ENGINEER 

MACHINE 

24997 

SEAMAN 

ELECTRICIAN 

HAlHi N E 

24y9a 

SEAMAN 

LLtLIHlLlAN 

fl  AlHIN  h. 

25001 

SEAMAN 

ELECTRICIAN 

MACHINE 

25016 

SEAMAN 

ELECTRONIC 

W  AC  H I N E 

9ol24 

SEAhAN 

ELEU TRUN1C 

rirtLHlNt 
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NAME 


bUBDEPARTMENT  :  

bUPERVIbUR      :  

bERNC        RANK         SPECIALTY  bUbDfcPAR TMhN 


Nelan  James  H 
Armstrong  David  K 
Nezart  Jerome  6 
Steevens  James  F 
Uuick  Gim  G 
Fogel  Gregory  B 
Clark  James  U 
Llark  Andrews  I 
Biondi  Daniel  M 
Weingarten  bam   F 


20769 

MAbTER 

CHIEF 

PG 

WEAPGN 

CGN'I  RGL 

LUMbA 1 

1  N  1-  U 

20793 

bENIGR 

LHIEF 

PG 

RADAR  1 

JbEh 

LGMbAl 

INh  U 

20U01 

CHIEF  PG 

RAUArt  1 

JbhK 

UJilbA  1 

1NKJ 

20652 

PG  2nd 

CLAbb 

WEAPUN 

CONTRGL 

LUMbAT 

INFG 

20O90 

PG  3rd 

CLAbb 

WEAPGN 

CGN'I'RGL 

LunbAi 

INFG 

20966 

bEAMAN 

WEAPGN 

LUN 1 KUL 

LUribAl 

INI-  U 

20y  72 

bEAflAN 

WhAPUN 

LbN ] KUL 

LUflbA  i 

i  N  f  U 

20976 

bEAMAN 

WEAPGN 

CGNTRGL 

LUMBAT 

1 N  h  G 

20995 

bEAMAN 

WEAPGN 

CUNT RGL 

UJtlBAi 

1  N  h  U 

21  Jtib 

bLAMAN 

RADArt  1 

JbEK 

LLJMdA  ! 

iNrU 
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rage  No. 
tfb/ 17/ab 


NAflE 


SUBDEPARTMENT  :  

SUPERVISOR      :  

SERNG        RANK         SPECIALTY  SUBDEPAR'i  MEN! 


Newell  Peet  S 
Ramey  Harold  A 
Armout.  Paul  G 
rtcPherson  JacK  A 

I'laiion    Patrick    F 


20772  MASTER  CHIEF  PQ  COMMUNICATION 

20SS2  PO  3rd  CLASS      COMMUNICATION 

21024  SEAMAN  COMMUNICATION 

21^fcJ4  SEAMAN  CGHMUNlUA 1 1UN 

^12tiy  SEAMAN  COMMUNICATION 


UUMNUNlUA 1  IONS 
CGMMUN1UA i IONS 
COMMUNiCA'I  LUNb 
CUMMUN iLAi lUNb 
COMMUNICATIONS 
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Page  No. 
0b/17/8b 


SUBDEPARTMENT  :  

SUPEKVISUK      :  

NAME  bERNG         HANK  SPECIALTY  bUbULPAKI  ilcNT 


Nicholson  George  R  20819  PQ  1st  CLASS     NAVIGATION  NAVlbAliUN 

Uuinn  Daniel  F  20S01  PC  3rd  ULAbb     NAVIGATION  NAVlbAliUN 

Markley  Daniel  T  213W2  SEAMAN  NAVibATlUN  NAVlbAliUN 

Sansiveri  Dan  K  21335  SEAMAN  NAVIGATION  NAVlbAliUN 

Sestak  Timothy  W  213ob  SEAMAN  NAVIGATION  NAVIGATION 

Shapiro  Edwin  W  2136S  SEAMAN  NAVIGATION  NAVlbAliUN 
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Page  No. 
(2)6/17/86 


SUBDEPARTMENT  :  

SUPERVISOR      :  

NAME  SERNG        RANK         SPECIALTY  SUBDEPARTMLN 


Rueso  James  D  20785  SENIOR  CHIEF  PO  WEAPON  USER  WEAPONS 

Norton  Harold  G  20645  PO  2nd  CLASS     WEAPON  USER  WLAPUNb 

isoia  Hike  L  20673  PO  3rd  CLASS     WEAPON  USER  WLAPUNb 

llit!  Thomas  C  20916  SEAflAN  WEAPON  U6EK  WLAPUNb 

Uualls  Terry  D  20927  SEAMAN  WEAPON  USER  WEAPONS 

Pulk  Richard  G  20936  SEAMAN  WEAPON  USER  WLAPUNb 

Miller  Jacj  T  20948  SEAMAN  WEAPON  UbLK  WLAPUNb 

Little  KrederiK  J    2W949  bEAMAN  WLAPUN  UbLK  WLAPUNB 

Flamini  Charles  D   20950  SEAMAN  WEAPUN  USER  WLAPUNb 
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Page  No. 
06/ 17/66 


SUBDEFAR  TMENT  :  

SUPERVIbUK      :  

NAME  SEHNG        HANK  SPECIAL!*  bUbUhPAK  I  fltN  I 


Nezos  Fred  T  20777  MASTER  CHIEF  PO  ELECTRICIAN  ELtLlRlL  iNbiAL 

Condon  Tim  N  20840  PO  1st  CLASS      ELECTRICIAN  ELEuiRlu  iNbiAJL 

Kett  David  U  249^7  SEAMAN  ELELTRIC1AN  ELEUTK1L  INblAL 

Getline  Scott  B  24996  SEAMAN  ELECTRICIAN  ELECTRlU  LNSlAL 

Nikola  Michael  E  2b0Wl  SEAMAN  ELECTRlUlAN  ELtulKlL  iNblAL 
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t^age    No. 
<dt>/  17/aci 


NAME 


SUBDEPARTMENT  :  

SUPERVISOR      :  

SERNO        RANK         SPECIALTY  BIJBDEPARTMEN 


Rugg  Bill  S 
Ibel  Peter  J 
Cline  William  K 
Sorensen  Donald 


2(3780  MASTER  CHIEF  PO  ELECTRONIC 

2(3867  PO  2nd  CLASS     ELECTRONIC 

25(316  SEAI1AN  ELECTRONIC 

951^4  SEAMAN  ELEUTKONlL 


ELECTRON  EUU1PM 

ELECTRON  hUUihTi 

ELfcCTKUN  huUlJ-Ti 

LLLLIKUN  tUUl^l'l 
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Page  No. 
06/17/86 


NAME 


bUBDEPARTMENT  :  

SUPERVISOR      :  

SERNG        RANK  SPECIALTY  SUBbhPAhl HtN 


Jaffee  Jay  M 
Ervm  Joseph  H 
Appel  John  b 
Gorman  Dennis  H 
Hobson  Aaron  M 
Linger  Jeff  H 
Puss  Randy  6 
William  Kobert  P 
Beam  Alan  K 
Edson  Alan  B 
Cavalini  Larry  K 
Martyr  Paul  J 
Knubis  James  P 
Kohn  Robert  H 
Sturgeon  James  K 


20741 

LIEUTENANT 

ENGINEER 

MAIN 

ENGlNEb 

20766 

ENSIGN 

ENG1NEEK 

MAIN 

LNblNtb 

2W794 

SENIOR 

CHIEF  PG  ENGINEER 

MAIN 

ENGlNbb 

20831 

PC  1st 

CLASS 

ENGINEER 

MAIN 

LNblNLb 

20910 

PG  3rd 

CLASS 

ENGINEER 

MAIN 

ENGiNEb 

21438 

SEAMAN 

ENGINEER 

MAIN 

ENGINES 

21451 

SEAMAN 

LNGlNbEK 

MAIN 

LNbiNbb 

^1466 

SEAMAN 

ENGINEER 

MAIN 

ENGINES 

21487 

SEAMAN 

ENGINEER 

MAIN 

LNui  N E la 

24*369 

SEAMAN 

ENGINEER 

MAIN 

hNulNtb 

24b93 

SEAMAN 

ENGINEER 

MAIN 

ENGINES 

24906 

SEAMAN 

ENGINEER 

MAIN 

ENblNbb 

2492y 

SEAMAN 

ENGINEER 

MAIN 

ENGINES 

^4ybl 

SEAMAN 

ENGINEER 

MAIN 

ENblNbb 

249b3 

SEAMAN 

ENGINEER 

MAIN 

ENblNt-b 
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Page  tia.  1 

Wb/ 17/86 

CREW  ALLOCATION  INTO  TWO  SHIFTS 

(  bHIFT  "A"   ) 


name  hank  bPtLiALiy 


Tally  Chris  S 
Emerson  Burt.  F 
Jelferson  Jack  L 
Norton  Harold  G 
lilt  Thomas  C 
Hulk  Richard  G 
Little  Frederik  , 
Nelan  James  H 
Uuick  Gim  G 
Clark  James  D 
Biondi  Daniel  M 
Kamey  Harold  A 
McPherson  Jack  A 
Nicholson  George 
Markley  Daniel  T 
Sestak  Timothy  W 
Armstrong  David 
Weingarten  Sam 
Tran  Mike  K 
Trend  Ted  M 
Ervin  Joseph  H 
Gorman  Dennis  H 
Linger  Jell  H 
William  Robert  P 
Edson  Alan  B 
Martyr  Paul  J 
Kohn  Robert  H 
Nezos  Fred  T 
Kett  David  G 
Nikola  Michael  £ 
Ibel  Peter  J 
Sorensen  Donald 


LT.  COMMANDER 

DECK 

1st  LIEUTENANT 

DECK 

ENSIGN 

DECK 

PO  2nd 

CLASS 

WEAPUN  UbEK 

SEAMAN 

WEAPUN  Ub>EK 

SEAMAN 

WEAPUN  UbEK 

J   SEAMAN 

WEAPUN  USER 

MASTER 

CHIEF  PO 

WEAPUN  UUNTKUL 

PO  3rd 

CLAbb' 

WEAPUN  LUNTKUL 

SEAMAN 

WEAPUN  CUN  1 KUL 

SEAMAN 

WEAPUN  UUNTKUL 

PO  3rd 

CLASS 

COMMUNICAT 1UN 

SEAMAN 

COMMUNICATION 

R  PO  1st 

CLASS 

NAVIGA  i  iON 

SEAMAN 

NAVibA 1 1UN 

SEAMAN 

NAVIGA 1 1UN 

K   SENIUR 

LHlth   PU 

HADAK  UbbR 

F   SEAMAN 

RADAR  USER 

SEAMAN 

SANITARY 

SEAMAN 

bUPPLY 

ENSIGN 

ENblNhtH 

PO  1st 

CLASS 

ENUlNhhR 

SEAMAN 

hJNblNhhK 

SEAMAN 

ENGINEER 

SEAMAN 

ENGINEER 

SEAMAN 

ENGINEER 

SEAMAN 

ENU1NEER 

MASTER 

CHIhF  PO 

hLECTRlUlAN 

SEAMAN 

ELEUTK  LC1AN 

:    SEAMAN 

ELECTRICIAN 

PO  2nd 

CLASS 

ELECTRUNxC 

M   SEAMAN 

ELECT  KUN1U 
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Page    No. 
06/ 17/fcJb 


CREW  ALLUCATIGN  1NTU  1'WU  bHIFTb 
(  SHIFT  MB"  ) 


NAME 


RANK 


SPECIALTY 


Concon  Stephen  J 
hrtie  Aaron  P 
Kusso  James  D 
Isola  Mike  L 
Quails  Terry  D 
Miller  Jacj  T 
Flamim  Charles  D 
Steevens  James  F 
Fogel  Gregory  B 
Clark  Andrews  I 
Newell  Peet  S 
Armout  Paul  G 
Mallon  Patrick  F 
Uumn  Daniel  F 
Sansiveri  Dan  K 
Shapiro  Edwin  W 
Nezart  Jerome  G 
Trigo  Bum  F 
Lyon  Arthur  B 
J at lee  Jay  M 
Appel  John  G 
Hobson  Aaron  M 
Puss  Handy  G 
Beam  Alan  K 
Cavalim  Larry  F 
Knubis  James  P 
Sturgeon  James  K 
Condon  Tim  N 
Getline  Scott  B 
Rugg  Bill  S 
Cline  William  R 


CHIEF  PU 
CLASS 


CLASS 


CHIEF  PU 


CLASS 


LIEUTENANT 

ENSIGN 

SENIUR 

PO  3rd 

SEAMAN 

SEAMAN 

SEAMAN 

PU  2nd 

SEAMAN 

SEAMAN 

MASTER 

SEAMAN 

SEAMAN 

PU  3rd 

SEAMAN 

SEAMAN 

CHIEF  PU 

CHIEF  PU 

CHIEF  PU 

LIEUTENANT 

SENIUR  CHIEF 

PC  3rd 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

SEAMAN 

PU  1st 

SEAMAN 

MASTER 

SEAMAN 


PG 


CLASS 


DECK 

DECK 

WEAPUN 

WEAPGN 

WEAPUN 

WEAPUN 

WEAPUN 

WEAPUN 

WEAPUN 

WEAPUN 


USER 

USER 

USER 

USER 

UShK 

CUN  1 KUL 

CUNTRUL 

CUNTRUL 


CLASS 


CHIEF  PU 


CUMMUNICATIUN 

CUMMUNIUAT1UN 

CUMMUN1UA T1UN 

NAVIGAT1GN 

NAVIGAT1UN 

NAVIGATION 

RADAR  USER 

bANiTAR* 

SUPPLY 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ENGINEER 

ELECTRICIAN 

ELEUTRiUi AN 

ELh.C'1'RUNlU 

LLEU 1 KUNlU 
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Page  No. 
(2)6/  17/86 


CREW  ALLOCATION  INTO  THREE  SHIFTS 
(  SHIFT  "A"  ) 


NAME 


RANK 


SPECIALTY 


Tally  Chris  S 
Ertie  Aaron  P 
Norton  Harold  G 
Quails  Terry  D 
Little  Frederik 
Steevens  James  i 
Clark  James  D 
Newell  Peet  S 
Mcpherson  Jack 
Ouinn  Daniel  F 
Sestak  Timothy 
Nezart  Jerome  G 
Tran  Mike  K 
Jaliee  Jay  fl 
Gorman  Dennis  H 
Russ  Randy  G 
Edson  Alan  B 
Knubis  James  P 
Nezos  Fred  T 
Getline  Scott  B 
Ibel  Peter  J 


LT.  COMMANDER 


DECK 


ENSIGN 

DECK 

PO  2nd 

class 

WEAPON  UbER 

SEAMAN 

WEAPUN  UbLR 

J 

SEAMAN 

WLAPUN  USEK 

F 

PO  2nd 

CLASS 

WEAPON  CONTROL 

SEAMAN 

WEAPON  CONTROL 

MASTER 

CHIEF 

PO  COMMUNICATION 

A 

SEAMAN 

COMMUNICATION 

PO  3rd 

CLASS 

NAVlbATlUN 

W 

SEAMAN 

NAVIGAT1UN 

CHIEF  PO 

RADAR  USER 

SEAMAN 

SANITARY 

LIEUTENANT 

ENGINEER 

PO  1st 

CLASS 

ENGINEER 

SEAMAN 

ENGINEER 

bEAMAN 

ENblNEEK 

SEAMAN 

ENGINEER 

MASTER 

CHIEF 

PO  ELECTRICIAN 

1 

SEAMAN 

ELECTRICIAN 

PO  2nd 

CLASb 

ELECTRONIC 
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Page  No. 

Wb/1?/Bfa 


CREW  ALLOCATION  1NTU  THKLE  SHIFTS 
(  SHIFT  "B"  ) 


NAME 


RANK 


SPECIALTY 


Concon  Stephen  J 
Jellerson  Jack 
I sol a  Mike  L 
Pulk  Richard  G 
Flamini  Charles 
Uuick  Gim  G 
Clark  Andrews  I 
Ramey  Harold  A 
Mallon  Patrick 
Markley  Daniel 
Shapiro  Edwin  W 
Weingarten  bam 
Lyon  Arthur  B 
Ervm  Joseph  H 
Hobson  Aaron  M 
William  Robert 
Cavalini  Larry 
Kohn  Robert  H 
Condon  Tim  N 
Nikola  Michael 
Cline  William  R 


J 

LIEUTENANT 

DECK 

L 

ENSIGN 

DECK 

PO  3rd 

CLASS 

WEAPON  USER 

SEAMAN 

WEAPON  USER 

D 

SEAMAN 

WEAPON  USER 

PO  3rd 

CLASS 

WEAPON  CUN  i'KOL 

bEAMAN 

WEAPON  CGNTKUL 

PO  3rd 

CLASS 

COMMUNICATION 

F 

SEAMAN 

COMMUNICATION 

T 

SEAMAN 

NAVIGATION 

SEAMAN 

NAVIGATION 

F 

SEAMAN 

RADAR  UbER 

CHIEF  PO 

SUPPLY 

ENSIGN 

ENGINEER 

PO  3rd 

CLASS 

ENGINEER 

P 

SEAMAN 

ENGINEER 

F 

SEAMAN 

ENG1NELR 

SEAMAN 

ENGINEER 

PO  1st 

CLASS 

ELECTRICIAN 

E 

SEAMAN 

ELECTRICIAN 

SEAMAN 

ELECTRUNIC 
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Page  No.       1 
06/ 17/ ab 

CREW  ALLOCATION  INTO  THREE  SHIFT 

(  SHIFT  "C"  ) 


NAME  RANK  SPECIALTY 


Emerson  Burt  F  1st  LIEUTENANT   bh.Ch 

Russo  James  D  SENIOR  CHIEF  PO  WEAPON  USER 

I lit  Thomas  C  bEAMAN  WEAPON  USER 

Miller  Jacj  T  SEAMAN  WEAPuN  USER 

Nelan  James  H  MASTER  CHIEF  PO  WEAPON  CONTROL 

Fogel  Gregory  B  SEAMAN  WEAPON  CONTROL 

Biondi  Daniel  M  SEAMAN  WEAPUN  CUNTRUL 

Armout  Paul  U  bEAMAN  CGMMUNlCATluN 

Nicholson  George  R  PO  1st  CLASS  NAVIGATION 

Sansiveri  Dan  K  SEAMAN  NAVIGATION 

Armstrong  David  K  SENIOR  CHIEF  PO  RADAR  USER 

Trigo  Bum  F  CHIEF  Pu  SANITARY 

Trend  Ted  M  SEAMAN  SUPPLY' 

Appel  John  G  SENIOR  CHIEF  PU  LNGlNLER 

Unger  Jell  H  SEAMAN  ENGINEER 

Beam  Alan  K  SEAMAN  ENGINEER 

Martyr  Paul  J  SEAMAN  ENGINEER 

bturgeon  James  K  SEAMAN  ENGINEER 

Rett  David  G  SEAMAN  ELECTRICIAN 

Rugg  Bill  S  MASTER  CHIEF  PO  ELECTRONIC 

Sorensen  Donald  M  SEAMAN  ELECTRONIC 
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Page  No.       1 
06/ 17/86 

SHIP  ORGANIZATION  DURING  SURFACE  ALbRT 


DESCRIPTION       NAflE  OK  CHEW  MEMB.        KANK  bPt-LlALH 


COMMAND  OFFICER  Tally  Chris  S  LT.  COMMANDER    DECK 

NAVIGATOR  Ertle  Aaron  P  ENSIGN  DECK 

NAVIG.  RADAR  Wemgarten  Sam   F  SEAMAN  RADAR  UbEH 

HELMbMAN  Nicholson  George  H  PL)  1st  CLAbb  NAVlUATlUN 

HF  BRIDGE  COMM.  Ramey  Harold  A  PO  3rd  CLASS  COMMUNICATION 

UHF  BRIDGE  COMM  Armout  Paul  G  SEAMAN  C0MMUN1UA I 1UN 

LEFT  OBSERVER  Markley  Daniel  T  SEAMAN  NAVIGA'flUN 

RIGHT  UB^ER^ER  bansiven  Dan  K  SEAMAN  NAViUAllUN 

CIC  SUPERVISOR  Concon  Stephen  J  LIEUTENANT  DECK 

AIR  RADAR  Nezart  Jerome  G  CHIEF  PO  RADAR  UbLH 

SURFACE  RADAR  Armstrong  David  K  SENIOR  CHIEF  PO  RAuAK  USER 

TRACK  RADAR  Quick  Gim  G  PO  brd  CLAbb  WEAPUN  UGN  i  RUL 

CIC  CCMMUNIUAT.  Lyon  Arthur  B  CHIEF  PO  SUPPLY 

UENTR  WEAP  CONT  Emerson  Burt  F  1st  LIEUTENANT   DECK 

GUN  31  CONSOLE  Norton  Harold  G  PO  2nd  CLASS  WEAPON  USER 

31  AMMO  SUPPL1  Hit  Thomas  C  SEAMAN  WLAPUN  UbtK 
GUN  32  CONSOLE  Russo  Jarnes  D  SEN1UR  UHlEF  PU  WLAPUN  Ubhh 

32  AMMO  SUPPL1  Quails  Terry  D  SEAMAN  WEAPON  USER 
GUN  33  CONSOLE  Isola  Mike  L  PO  3rd  CLAbb  WEAPON  USER 

33  AMMO  bUPPLl  Pulk  Kichard  G  bEAMAN  WEAPON  USER 
TORPEDO  TUBE  1  Fogel  Gregory  B  bEAMAN  WEAPUN  CONTROL 
TORPEDO  TUBE  2  Clark  James  D  SEAMAN  WEAPUN  CONTROL 
SS  MISSILES  1  Clark  Andrews  I  SEAMAN  WEAPON  CONTROL 
TELETYPE  1  Newell  Peet  S  MASTER  CHIEF  PU  CGMMUN1LA I  ION 
TELETYPE  2  Mcpherson  Jack  A  SEAMAN  turiMUN  i  LA  i  l  UN 
HF  COMMUNICAT  Mallon  Patrick  F  SEAMAN  COMMUNICATION 
SURG  ROOM  SUPER  Trigo  Bum  F  CHIEF  PO  SANITARY 

SURG  R00M1  Trail  Mike  K  SEAMAN  SANITARY 

ENG  CONTR  ROOM  Jailee  Jay  M  LIEUTENANT  ENGlNEEK 

MAIN  ENLil  ASS1  Gorman  Dennis  H  PO  1st  CLAbS  LNblNhtK 

MAIN  ENG1  ASS2  Unger  Jell  H  SEAMAN  ENGINEER 

MAIN  ENG2  ASS1  Hobson  Aaron  M  PO  3rd  CLASS  ENGINEER 

MAIN  ENG2  ASS2  Russ  Handy  G  bEAMAN  ENUINLER 

ELECTR  GENERAT1  Kett  David  G  bEAMAN  ELECTRICIAN 

ELECTR  GENERAT2  Getline  Scott  B  SEAMAN  ELECTRICIAN 

ELECTR  GENERAT3  Nikola  Michael  E  SEAMAN  ELECTRICIAN 

DISTR  TABLE  1  Nezos  Fred  T  MASTER  CHIEF  PO  ELECTRICIAN 

DISTR  TABLE  2  Condon  Tim  N  PO  1st  CLAbb  ELECTRICIAN 

DAMASE  CUNTROL1  Ervin  Joseph  H  ENSIGN  ENG1NLEH 

DAMAGE  C0NTR0L2  Appel  John  G  SENIOR  CHIEF  PO  ENGINEER 

DAMAGE  CONTROLS  Quinn  Daniel  F  PO  3rd  CLASS  NAVlGATiUN 

RADIO  ROOM  SUP  Jellerson  Jack  L  ENSIGN  DEUK 
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l^age  No. 
i^b/  1 7/Ut. 


bHIP  UKGANiZATiGN  DURING  SURFACE  ALERT 


DESCRIPTION 


NAME  OF  CREW  MEMB, 


KANtt. 


.PbUiAL  It 


ESM 

ECM 

31  AMMO 

SUPPL2 

02  AMMO 

SUPPL2 

JJ  AMMO 

SUPPL2 

SS  MISS 

CONTR 

SS  MISS 

TELEPH 

SS  MISSILES  2 

SURG  R00M2 

SURG  RUUMJ 

DAMAGE 

C0NTR0L4 

DAMAGE 

CONTROLS 

DAMAGE 

CONTROLS 

DAMAUE 

CONTROL'/1 

DAMAGE 

C0NTR0L8 

Nelan  James  H 
Rugg  Bill  S 
Steevens  James  F 
Ibel  Peter  J 
Miller  Jacj  T 
Little  Frederik 
Flamini  Charles 
Biondi  Daniel  M 
Sestak  Timothy  W 
bhapiro  Edwin  W 
Trend  Ted  M 
William  Robert  P 
Beam  Alan  K 
Edson  Alan  B 
Cavalim  Larry  F 


MASTER  CHIEF  PO  WEAPUN  UUNiRUL 
MASTER  CHIEF  PO  ELECTRONIC 


PO  2nd 

CLASS 

WEAPUN  CUNIRUL 

PO  2nd 

CLASS 

ELbCTRUNlu 

SEAMAN 

WhAhUN  UbbK 

J 

SEAMAN 

WEAPON  USER 

D 

SEAMAN 

WEAPON  USER 

bEAMAN 

WEAPUN  LUN IKUL 

SEAMAN 

NAVibA 1 1UN 

bEAMAN 

NAV1GA  i  IUN 

SEAMAN 

SUPPLY 

bEAMAN 

bNUlNELK 

SEAMAN 

ENUlNEbR 

bEAMAN 

ENGINEER 

SEAMAN 

ENGINEER 
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Page  No.       1 
06/ 17/86 

SHIP  ORGANIZATION  DURING  AIR  ALERT 


DESCRIPTION       NAME  OF  CREW  MEMB.        RANK  SPECIALTY 


COMMAND  OFFICER  Tally  Chris  S  LT.  COMMANDER    DECK 

NAVIGATOR  Ertle  Aaron  P  ENSIGN  DECK 

NAVIG.  RADAR  Wemgarten  Sam   F  SEAMAN  RADAK  UbhK 

HELMSMAN  Nicholson  George  R  PO  1st  CLASS  NAVIGATION 

HF  BRIDGE  COMM.  Ramey  Harold  A  PO  3rd  CLASS  COMMUNICATION 

UHF  BRIDGE  COMM  Armout  Paul  G  SEAMAN  COMMUNiCA 1 iUN 

LEFT  OBSERVER  Markley  Daniel  T  SEAMAN  NAViGAliUN 

RIGHT  OBSERVER  Sansiven  Dan  K  SEAMAN  NAViGAliUN 

CIC  SUPERVISOR  Concon  Stephen  J  LIEUTENANT  DECK 

AIR  RADAR  Nezart  Jerome  G  CHIEF  PO  RADAR  Ubhrt 

SURFACE  RADAR  Armstrong  David  K  SENIOR  CHIEF  PO  RADAR  USER 

TRACK  RADAR  UuiCk  Gim  O  PO  3rd  LLAbb  WCAPUN  CUN  1  uUL 

CIC  COMMUNICAT.  Lyon  Arthur  B  CHIEF  PO  SUPPLY 

CENTR  WEAP  CONT  Emerson  Burt  F  1st  LIEUTENANT   DECK 

GUN  31  CONSOLE  Norton  Harold  G  PO  2nd  CLASS  WEAPON  USER 

31  AMMO  SUPPL1  lilt  Thomas  C  SEAMAN  WbAPUN  USER 
GUN  J>Z    CONSOLE  Russo  James  D  SENIOR  CHIEF  PO  WEAPUN  UbtK 

32  AMMO  SUPPL1  Quails  Terry  D  SEAMAN  WEAPON  USER 
GUN  33  CONSOLE  Isola  Mike  L  PO  3rd  CLASS  WEAPUN  UbhH 

33  AMflO  SUPPL1  Pulk  Richard  G  SEAMAN  WtAPUH  Ubhk 
SUN  41  CONTROL  Miller  Jac]  T  SEAMAN  WhAKUN  UbhK 
GUN  42  CONTROL  Little  Frederik  J  SEAMAN  WEAPON  UbLK 
A/A  MISS  CONTR  Steevens  James  F  PO  2nd  CLASS  WEAPUN  CONTROL 
A/A  MISSILES  1  Fogel  Gregory  B  SEAMAN  WEAPUN  LUNi'KUu 
TELETYPE  1  Newell  Peet  S  MASTER  CHlhF  PU  cUMMUNiCA I iUN 
TELETYPE  2  McPherson  Jack  A  SEAMAN  CUMMUN 1CA T 1  UN 
HF  COMMUNICAT  Mallon  Patrick  F  SEAMAN  COMMUNICATION 
SURG  ROOM  SUPER  Trigo  Bum  F  CHIEF  PO  SAN1TAKY 

SURG  ROOM1  Tran  Mike  K  SEAMAN  SANITARY 

ENS  CONTR  ROOM  Jaiiee  Jay  M  LIEUTENANT  ENGINEER 

MAIN  ENG1  ASS1  Gorman  Dennis  H  PO  1st  CLASS  ENGINEER 

MAIN  ENG1  ASS2  Unger  Jeil  H  SEAMAN  ENGINEER 

MAIN  ENG2  ASS1  Hobson  Aaron  M  PO  3rd  CLAbb  ENblNhbK 

MAIN  ENG^  ASS2  Russ  Randy  G  SEAMAN  ENUiNbEh 

ELECTR  GENERAT1  Kett  David  G  SEAMAN  ELECTRICIAN 

ELECTR  GENERAT2  Getline  Scott  B  SEAMAN  ELECTRICIAN 

ELECTR  GENERAT3  Nikola  Michael  E  SEAMAN  ELECTRICIAN 

DISTR  TABLE  1  Nezos  Fred  T  MASTER  CHIEF  PU  ELLCTKiCiAN 

DISTR  TABLE  2  Condon  Tim  N  PO  1st  CLASS  ELECTRICIAN 

DAMAGE  CONTROL1  Ervin  Joseph  H  ENSIGN  ENU1NEER 

DAMAGE  C0NTR0L2  Appel  John  G  SENIOR  CHIEF'  PO  ENGINEER 

DAMAGE  CONTROLS  Qumn  Daniel  F  PO  3rd  CLASS  NAVIGATION 
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t-'age  No. 
tfb/ 17 /Ufa 


bHIP  GRGANIZATICN  DURING  AIR  ALERT 


DESCRIPTION 


NAME  OF  CREW  MEMB. 


RANK 


.PLblALTY 


RAD1U  RGUM  SUP 
ESM 
ECM 

Jl  AMMO  SUPPL2 
32  AMMO  bUPPL2 
JJ  AMMU  SUPPL2 
A/A  MISS  TELEPH 
A/A  MISSILES  2 
bURG  RGGM2 
SURG  ROOMS 
DAMAGE  CGNTRGL4 
DAMAGE  CONTROLS 
DAMAGE  CONTROLS 
DAMAUE  CGN  TRGLV 


Jeflerson  Jack  L 
Nelan  James  H 
Rugg  Bill  S 
Ibel  Peter  J 
Flamini  Charles  i 
Clark  James  D 
Clark  Andrews  I 
Biondi  Daniel  M 
Sestak  Timothy  W 
Shapiro  Edwin  W 
Trend  Ted  M 
William  Robert  P 
Beam  Alan  K 
Edson  Alan  B 


DAMAGE  CUNTRGL8  Cavalini  Larry  F 


ENbIGN  DECK 

MASTER  CHIEF  PQ  WEAPUN  CONTROL 

MASTER  CHIEF  PU  ELEC'iRLNIL, 

PG  2nd  CLASS      ELLUTRUNIU 

SEAMAN  WEAPUN  U'oLK 

SEAMAN  WEAPUN  CONTROL 

SEAMAN  WEAPUN  CONTROL 

SEAMAN  WEAPUN  LUNiKUL 

SEAMAN  NAVlUA'llUN 

SEAMAN  NAVIGATION 

SEAMAN  SUPPLY 

SEAMAN  ENGINEER 

SEAMAN  LNblNtLK 

SEAMAN  ENblNbER 

SEAMAN  ENGINEER 
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Page  No.       1 
06/ 17/86 

SHIP  ORGANIZATION  DURING  GENERAL  ALER  l 


DEbURlPTlCN       NAflE  UP  UKEW  MEMB.        KANK  bPhLlALH 


COMMAND  OFFICER  Tally  Chris  6  LT.  COMMANDER    DECK 

NAVIGATOR  Ertle  Aaron  P  ENSIGN  DEUK 

NAVIG.  RADAR  Weingarten  Sam   K  SEAMAN  RADAR  USER 

HELMSMAN  Nicholson  George  R  PO  1st  CLAbb  NAVIGATION 

HF  BRIDGE  COMM.  Ramey  Harold  A  PO  3rd  CLASS  COMMUN 1CA 1  1  ON 

UHF  BRIDGE  COMM  Armout  Paul  G  SEAMAN  COMMUN luA 1 1UN 

LEhT  OBSEKVER  flarkley  Daniel  T  SEAMAN  NAVlGAliUN 

RIGHT  OBSERVEH  Sansiveri  Dan  K  SEAMAN  NAVlGAliUN 

CLC    SUPERVISOR  Concon  Stephen  J  LIEUTENANT  DEUK 

AIR  RADAR  Nezart  Jerome  G  CHIEF  PO  KADAP  UbtK 

SURFACE  RADAR  Armstrong  David  K  SENIOR  UHlEf-  PU  KAuAh  Ubhh 

TRACK  RADAR  Quick  Gim  G  PO  Jrd  LLAbb  WhAPUN  LUNIhUL 

CIC  COMMUNICAT.  Lyon  Arthur  B  CHIEF  PO  SUPPLY 

CENTR  WEAP  CONT  Emerson  Burt  F  1st  LIEUTENANT   DECK 

GUN  31  CONSOLE  Norton  Harold  G  PO  2nd  CLASS  WEAPUN  UbPh 

31  AMMO  SUPPL1  lilt  Thomas  C  SEAMAN  WEAPUN  UbLK 
GUN  3Z    CONSULE  Russo  James  D  SENIOR  CHIEF  PU  WEAPUN  USER 

32  AMMO  SUPPL1  Quails  Terry  D  SEAMAN  WEAPUN  UbtK 
GUN  3b  CONSOLE  isola  Mike  L  PO  3rd  LLAbb  WEAPON  Ubtu 

33  AMMO  SUPPL1  Pulk  Richard  G  SEAMAN  WEAPUN  Ubhh 
UUN  41  CUNTRUL  Miller  Jacj  T  SEAMAN  WbAPUN  UbtK 
GUN  42  CONTROL  Little  Frederik  J  SEAMAN  WEAPUN  USER 
TORPEDO  TUBE  1  Fogel  Gregory  6  bEAMAN  WEAPUN  UUNTkUL 
TORPEDO  TUBE  2  Clark  James  D  SEAflAN  WEAPUN  CUNTRUL 
A/A  MISS  CuNTR  bteevens  James  P  PU  Znd    LLAbb  WEAPUN  LUNlrtUL 
A/A  MISSILES  1  Clark  Andrews  1  SEAMAN  WEAPON  CONTROL 
SS  MISSILES  1  Biondi  Daniel  M  SEAMAN  wEAPUN  LUNTKUL 
TELETYPE  1  Newell  Peet  S  MASTER  UHIEF  PO  COMMUNICATION 
TELETYPE  2  McPherson  Jack  A  SEAMAN  CUMMUN1UA T10N 
HF  COMMUNICAT  Mallon  Patrick  F  SEAMAN  COMMUN  ICAT ION 
SURG  ROOM  SUPER  Trigo  Bum  F  CHIEF  PO  SANITARY 

SURG  ROOM1  Iran  Nike  K  bEAMAN  SAN1TAKY 

ENG  CONTR  RUUM  Jallee  Jay  M  Llt-UTENANT  ENU1NEPK 

MAIN  ENG1  ASS1  Gorman  Dennis  H  PO  1st  CLASS  ENblNLtk 

MAIN  ENG1  ASS2  Unger  Jell  H  SEAMAN  ENGINEER 

MAIN  ENG2  ASS1  Hobson  Aaron  M  PO  3rd  CLASS  ENU1NEEK 

MAIN  ENG2  ASS2  Russ  Randy  U  SEAMAN  ENGINEER 

ELECTR  GENERAT1  Kett  David  U  SEAMAN  ELECTRlLlAN 

ELECTR  GENERAT2  Getline  Scott  B  SEAMAN  ELECTRICIAN 

ELECTR  GENERAT3  Nikola  Michael  E  SEAMAN  ELECTKiUlAN 

DISTR  TABLE  1  Nezos  Fred  T  MASTER  CHIEF  PU  ELECTRICIAN 

DISTR  TABLE  2  Condon  Tim  N  PO  1st  LLAbb  ELEUIR1U1AN 
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Page  No. 
0b/ 17/86 


SHIP  ORGANIZATION  DURING  GENERAL  ALERT 


DESCRIPTION 


NAI1E    OF    CREW    MEMB, 


RANK 


bPhLlALii 


DAMAGE  CGNTRGL1  Ervin  Joseph  H 
DAMAGE  CGNTRGL2  Appel  John  G 
DAMAGE  CGNTRGL3 
RADIO  ROOM  SUP 


tbfl 

ECM 

31  AMMO  SUPPL2 

32.    AMMO  SUPPLY 

33  AMMU  SUPPLY 


Quinn  Daniel  F 
Jellerson  Jack  L 
Nelan  James  H 
Rugg  Bill  S 
Ibel  Peter  J 
Flamim  Charles  D 
Sestak  Timothy  W 


A/A  MISS  TELEPH  Shapiro  Edwin  W 
A/A  MISSILES  2   Trend  Ted  M 


SS  MISS  CONTR 
SS  MISS  TELEPH 
SS  MISSILES  'Z 
SURG  R00M2 
SURG  ROOMS 
DAMAGE  C0NTR0L4 
DAMAGE  CONTROLS 
DAMAGE  CONTROLS 
DAMAGE  C0NTR0L7 
DAMAGE  CONTROLS 


William  Robert  P 
Beam  Alan  K 
hidson  Alan  B 
Cavalim  Larry  F 
Martyr  Paul  J 
KnuDis  James  P 
Konn  Robert  H 
Sturgeon  James  K 
Cline  William  R 
Sorensen  Donald  M 


ENSIGN 
SENIOR 
PO  3rd 
ENSIGN 
MASTER 
MASTER 
PO  2nd 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 
SEAMAN 


CHIEF  PO 
CLAbb 

CHIEF  PO 
CHIEF  PU 
CLASS 


ENGINEER 

ENGINEER 

NA  V  lbA'l  1UN 

DELh 

WLARUN  LUN  i'HOi 

ELECTRON  i  C 

LLELThUNxu 

WEAPON  USER 

NAV  ibA  I  LUN 

NAVIGATION 

SUFPL* 

ENGINEER 

ENGINLLH 

ENGiNELR 

ENGINEER 

thbiNLLK 

ENbiNLhh 

LNOl  Nthk 

ENOlNEbK 

ELECTRON  iL, 

ELEb'l'RUNlL 
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